/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / prim / simple.elc.z / simple.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 33 38 3a 30 36 20 31 | 39 39 38 0a 3b 3b 3b 20 |:38:06 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 70 72 69 6d |s-20.3/l|isp/prim|
|000000a0| 2f 73 69 6d 70 6c 65 2e | 65 6c 0a 3b 3b 3b 20 65 |/simple.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs  Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)).    (|
|000001e0| 65 72 72 6f 72 20 22 60 | 73 69 6d 70 6c 65 2e 65 |error "`|simple.e|
|000001f0| 6c 27 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |l' was c|ompiled |
|00000200| 66 6f 72 20 45 6d 61 63 | 73 20 32 30 22 29 29 0a |for Emac|s 20")).|
|00000210| 0a 28 6f 72 20 28 62 6f | 75 6e 64 70 20 27 63 75 |.(or (bo|undp 'cu|
|00000220| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 29 |rrent-lo|ad-list)|
|00000230| 20 28 73 65 74 71 20 63 | 75 72 72 65 6e 74 2d 6c | (setq c|urrent-l|
|00000240| 6f 61 64 2d 6c 69 73 74 | 20 6e 69 6c 29 29 0a 0a |oad-list| nil))..|
|00000250| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|00000260| c3 c4 c5 25 88 c0 c6 c2 | c7 c4 c5 25 88 c0 c8 c2 |...%....|...%....|
|00000270| c9 ca cb c4 cc 26 07 88 | c0 cd c2 ce ca cf c4 d0 |.....&..|........|
|00000280| 26 07 88 c0 d1 c2 d2 c4 | d3 25 88 c0 d4 c2 d5 c4 |&.......|.%......|
|00000290| d3 25 87 22 20 5b 63 75 | 73 74 6f 6d 2d 64 65 63 |.%." [cu|stom-dec|
|000002a0| 6c 61 72 65 2d 67 72 6f | 75 70 20 65 64 69 74 69 |lare-gro|up editi|
|000002b0| 6e 67 2d 62 61 73 69 63 | 73 20 6e 69 6c 20 22 4d |ng-basic|s nil "M|
|000002c0| 6f 73 74 20 62 61 73 69 | 63 20 65 64 69 74 69 6e |ost basi|c editin|
|000002d0| 67 20 76 61 72 69 61 62 | 6c 65 73 2e 22 20 3a 67 |g variab|les." :g|
|000002e0| 72 6f 75 70 20 65 64 69 | 74 69 6e 67 20 6b 69 6c |roup edi|ting kil|
|000002f0| 6c 69 6e 67 20 22 4b 69 | 6c 6c 69 6e 67 20 61 6e |ling "Ki|lling an|
|00000300| 64 20 79 61 6e 6b 69 6e | 67 20 63 6f 6d 6d 61 6e |d yankin|g comman|
|00000310| 64 73 2e 22 20 66 69 6c | 6c 2d 63 6f 6d 6d 65 6e |ds." fil|l-commen|
|00000320| 74 73 20 22 49 6e 64 65 | 6e 74 69 6e 67 20 61 6e |ts "Inde|nting an|
|00000330| 64 20 66 69 6c 6c 69 6e | 67 20 6f 66 20 63 6f 6d |d fillin|g of com|
|00000340| 6d 65 6e 74 73 2e 22 20 | 3a 70 72 65 66 69 78 20 |ments." |:prefix |
|00000350| 22 63 6f 6d 6d 65 6e 74 | 2d 22 20 66 69 6c 6c 20 |"comment|-" fill |
|00000360| 70 61 72 65 6e 2d 6d 61 | 74 63 68 69 6e 67 20 22 |paren-ma|tching "|
|00000370| 48 69 67 68 6c 69 67 68 | 74 20 28 75 6e 29 6d 61 |Highligh|t (un)ma|
|00000380| 74 63 68 69 6e 67 20 6f | 66 20 70 61 72 65 6e 73 |tching o|f parens|
|00000390| 20 61 6e 64 20 65 78 70 | 72 65 73 73 69 6f 6e 73 | and exp|ressions|
|000003a0| 2e 22 20 22 70 61 72 65 | 6e 2d 22 20 6d 61 74 63 |." "pare|n-" matc|
|000003b0| 68 69 6e 67 20 6c 6f 67 | 2d 6d 65 73 73 61 67 65 |hing log|-message|
|000003c0| 20 22 4d 65 73 73 61 67 | 65 73 20 6c 6f 67 67 69 | "Messag|es loggi|
|000003d0| 6e 67 20 61 6e 64 20 64 | 69 73 70 6c 61 79 20 63 |ng and d|isplay c|
|000003e0| 75 73 74 6f 6d 69 7a 61 | 74 69 6f 6e 73 2e 22 20 |ustomiza|tions." |
|000003f0| 6d 69 6e 69 62 75 66 66 | 65 72 20 77 61 72 6e 69 |minibuff|er warni|
|00000400| 6e 67 73 20 22 57 61 72 | 6e 69 6e 67 73 20 63 75 |ngs "War|nings cu|
|00000410| 73 74 6f 6d 69 7a 61 74 | 69 6f 6e 73 2e 22 5d 20 |stomizat|ions."] |
|00000420| 38 29 0a 23 40 32 34 31 | 20 49 6e 73 65 72 74 20 |8).#@241| Insert |
|00000430| 61 20 6e 65 77 6c 69 6e | 65 2c 20 61 6e 64 20 6d |a newlin|e, and m|
|00000440| 6f 76 65 20 74 6f 20 6c | 65 66 74 20 6d 61 72 67 |ove to l|eft marg|
|00000450| 69 6e 20 6f 66 20 74 68 | 65 20 6e 65 77 20 6c 69 |in of th|e new li|
|00000460| 6e 65 20 69 66 20 69 74 | 27 73 20 62 6c 61 6e 6b |ne if it|'s blank|
|00000470| 2e 0a 54 68 65 20 6e 65 | 77 6c 69 6e 65 20 69 73 |..The ne|wline is|
|00000480| 20 6d 61 72 6b 65 64 20 | 77 69 74 68 20 74 68 65 | marked |with the|
|00000490| 20 74 65 78 74 2d 70 72 | 6f 70 65 72 74 79 20 60 | text-pr|operty `|
|000004a0| 68 61 72 64 27 2e 0a 57 | 69 74 68 20 61 72 67 2c |hard'..W|ith arg,|
|000004b0| 20 69 6e 73 65 72 74 20 | 74 68 61 74 20 6d 61 6e | insert |that man|
|000004c0| 79 20 6e 65 77 6c 69 6e | 65 73 2e 0a 49 6e 20 41 |y newlin|es..In A|
|000004d0| 75 74 6f 20 46 69 6c 6c | 20 6d 6f 64 65 2c 20 69 |uto Fill| mode, i|
|000004e0| 66 20 6e 6f 20 6e 75 6d | 65 72 69 63 20 61 72 67 |f no num|eric arg|
|000004f0| 2c 20 62 72 65 61 6b 20 | 74 68 65 20 70 72 65 63 |, break |the prec|
|00000500| 65 64 69 6e 67 20 6c 69 | 6e 65 20 69 66 20 69 74 |eding li|ne if it|
|00000510| 27 73 20 6c 6f 6e 67 2e | 1f 0a 28 64 65 66 61 6c |'s long.|..(defal|
|00000520| 69 61 73 20 27 6e 65 77 | 6c 69 6e 65 20 23 5b 28 |ias 'new|line #[(|
|00000530| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 29 20 22 |&optiona|l arg) "|
|00000540| c0 c1 60 5c 22 88 6f 3f | ad ad 6e ad aa c2 60 53 |..`\".o?|..n...`S|
|00000550| c3 5c 22 3f ad a2 c2 60 | 53 c4 5c 22 3f ad 9a c2 |.\"?...`|S.\"?...|
|00000560| 60 53 c5 5c 22 3f ad 92 | c2 60 53 c6 5c 22 3f ad |`S.\"?..|.`S.\"?.|
|00000570| 8a c7 60 21 ae 81 c8 60 | c9 5a 57 6e ad 84 ca 0e |..`!...`|.ZWn....|
|00000580| 0b 21 60 1e 0c 1e 0d 89 | 1e 0e ab 84 cf d0 21 88 |.!`.....|......!.|
|00000590| d1 0e 12 ae 82 0e 0e 3f | ad 82 0e 13 1e 13 1e 14 |.......?|........|
|000005a0| d5 8e d6 d7 0e 12 21 21 | 88 2b 0e 0e ab 84 cf d0 |......!!|.+......|
|000005b0| 21 88 0e 18 ab b5 60 0e | 12 ab 86 d7 0e 12 21 aa |!.....`.|......!.|
|000005c0| 81 d0 5a 1e 19 da 0e 19 | c6 5c 22 1e 1b dc 0e 19 |..Z.....|.\".....|
|000005d0| 60 dd de 24 88 0e 1b 3c | ab 91 dd 0e 1b 73 ac 8b |`..$...<|.....s..|
|000005e0| dc 0e 19 60 c6 dd 0e 1b | 42 24 88 2a 0e 0e ac 9b |...`....|B$.*....|
|000005f0| 8a 0e 0c 62 88 df 79 88 | ca e0 21 ab 8d e1 20 df |...b..y.|..!... .|
|00000600| 56 ab 87 60 c1 7f 88 60 | 7c 88 29 0e 0e ab 83 d0 |V..`...`||.).....|
|00000610| 75 88 0e 0d ac 85 e2 c1 | de 5c 22 88 2b c1 87 22 |u.......|.\".+.."|
|00000620| 20 5b 62 61 72 66 2d 69 | 66 2d 62 75 66 66 65 72 | [barf-i|f-buffer|
|00000630| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 6e 69 6c 20 67 |-read-on|ly nil g|
|00000640| 65 74 2d 63 68 61 72 2d | 70 72 6f 70 65 72 74 79 |et-char-|property|
|00000650| 20 69 6e 74 61 6e 67 69 | 62 6c 65 20 72 65 61 64 | intangi|ble read|
|00000660| 2d 6f 6e 6c 79 20 69 6e | 76 69 73 69 62 6c 65 20 |-only in|visible |
|00000670| 65 6e 64 2d 6f 70 65 6e | 20 70 72 65 76 69 6f 75 |end-open| previou|
|00000680| 73 2d 65 78 74 65 6e 74 | 2d 63 68 61 6e 67 65 20 |s-extent|-change |
|00000690| 2d 32 20 32 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |-2 2 loo|king-at |
|000006a0| 70 61 67 65 2d 64 65 6c | 69 6d 69 74 65 72 20 62 |page-del|imiter b|
|000006b0| 65 66 6f 72 65 70 6f 73 | 20 77 61 73 2d 70 61 67 |eforepos| was-pag|
|000006c0| 65 2d 73 74 61 72 74 20 | 66 6c 61 67 20 62 61 63 |e-start |flag bac|
|000006d0| 6b 77 61 72 64 2d 63 68 | 61 72 20 31 20 3f 5c 6e |kward-ch|ar 1 ?\n|
|000006e0| 20 61 72 67 20 61 75 74 | 6f 2d 66 69 6c 6c 2d 66 | arg aut|o-fill-f|
|000006f0| 75 6e 63 74 69 6f 6e 20 | 6c 61 73 74 2d 63 6f 6d |unction |last-com|
|00000700| 6d 61 6e 64 2d 63 68 61 | 72 20 28 28 62 79 74 65 |mand-cha|r ((byte|
|00000710| 2d 63 6f 64 65 20 22 08 | ab 83 c1 75 88 c1 87 22 |-code ".|...u..."|
|00000720| 20 5b 66 6c 61 67 20 31 | 5d 20 31 29 29 20 73 65 | [flag 1|] 1)) se|
|00000730| 6c 66 2d 69 6e 73 65 72 | 74 2d 63 6f 6d 6d 61 6e |lf-inser|t-comman|
|00000740| 64 20 70 72 65 66 69 78 | 2d 6e 75 6d 65 72 69 63 |d prefix|-numeric|
|00000750| 2d 76 61 6c 75 65 20 75 | 73 65 2d 68 61 72 64 2d |-value u|se-hard-|
|00000760| 6e 65 77 6c 69 6e 65 73 | 20 66 72 6f 6d 20 67 65 |newlines| from ge|
|00000770| 74 2d 74 65 78 74 2d 70 | 72 6f 70 65 72 74 79 20 |t-text-p|roperty |
|00000780| 73 74 69 63 6b 79 20 70 | 75 74 2d 74 65 78 74 2d |sticky p|ut-text-|
|00000790| 70 72 6f 70 65 72 74 79 | 20 68 61 72 64 20 74 20 |property| hard t |
|000007a0| 30 20 22 5b 20 09 5d 24 | 22 20 63 75 72 72 65 6e |0 "[ .]$|" curren|
|000007b0| 74 2d 6c 65 66 74 2d 6d | 61 72 67 69 6e 20 6d 6f |t-left-m|argin mo|
|000007c0| 76 65 2d 74 6f 2d 6c 65 | 66 74 2d 6d 61 72 67 69 |ve-to-le|ft-margi|
|000007d0| 6e 5d 20 37 20 28 23 24 | 20 2e 20 31 30 36 35 29 |n] 7 (#$| . 1065)|
|000007e0| 20 22 2a 50 22 5d 29 0a | 28 64 65 66 61 6c 69 61 | "*P"]).|(defalia|
|000007f0| 73 20 27 73 65 74 2d 68 | 61 72 64 2d 6e 65 77 6c |s 'set-h|ard-newl|
|00000800| 69 6e 65 2d 70 72 6f 70 | 65 72 74 69 65 73 20 23 |ine-prop|erties #|
|00000810| 5b 28 66 72 6f 6d 20 74 | 6f 29 20 22 c0 09 c2 5c |[(from t|o) "...\|
|00000820| 22 1b c4 09 0d c6 c7 24 | 88 0b 3c ad 8e c6 0b 73 |"......$|..<....s|
|00000830| 3f ad 88 c4 09 60 c2 c6 | 0b 42 24 29 87 22 20 5b |?....`..|.B$)." [|
|00000840| 67 65 74 2d 74 65 78 74 | 2d 70 72 6f 70 65 72 74 |get-text|-propert|
|00000850| 79 20 66 72 6f 6d 20 72 | 65 61 72 2d 6e 6f 6e 73 |y from r|ear-nons|
|00000860| 74 69 63 6b 79 20 73 74 | 69 63 6b 79 20 70 75 74 |ticky st|icky put|
|00000870| 2d 74 65 78 74 2d 70 72 | 6f 70 65 72 74 79 20 74 |-text-pr|operty t|
|00000880| 6f 20 68 61 72 64 20 74 | 5d 20 36 5d 29 0a 23 40 |o hard t|] 6]).#@|
|00000890| 31 38 37 20 49 6e 73 65 | 72 74 20 61 20 6e 65 77 |187 Inse|rt a new|
|000008a0| 6c 69 6e 65 20 61 6e 64 | 20 6c 65 61 76 65 20 70 |line and| leave p|
|000008b0| 6f 69 6e 74 20 62 65 66 | 6f 72 65 20 69 74 2e 0a |oint bef|ore it..|
|000008c0| 49 66 20 74 68 65 72 65 | 20 69 73 20 61 20 66 69 |If there| is a fi|
|000008d0| 6c 6c 20 70 72 65 66 69 | 78 20 61 6e 64 2f 6f 72 |ll prefi|x and/or|
|000008e0| 20 61 20 6c 65 66 74 2d | 6d 61 72 67 69 6e 2c 20 | a left-|margin, |
|000008f0| 69 6e 73 65 72 74 20 74 | 68 65 6d 20 6f 6e 20 74 |insert t|hem on t|
|00000900| 68 65 20 6e 65 77 20 6c | 69 6e 65 0a 69 66 20 74 |he new l|ine.if t|
|00000910| 68 65 20 6c 69 6e 65 20 | 77 6f 75 6c 64 20 68 61 |he line |would ha|
|00000920| 76 65 20 62 65 65 6e 20 | 62 6c 61 6e 6b 2e 0a 57 |ve been |blank..W|
|00000930| 69 74 68 20 61 72 67 20 | 4e 2c 20 69 6e 73 65 72 |ith arg |N, inser|
|00000940| 74 20 4e 20 6e 65 77 6c | 69 6e 65 73 2e 1f 0a 28 |t N newl|ines...(|
|00000950| 64 65 66 61 6c 69 61 73 | 20 27 6f 70 65 6e 2d 6c |defalias| 'open-l|
|00000960| 69 6e 65 20 23 5b 28 61 | 72 67 29 20 22 08 ad 81 |ine #[(a|rg) "...|
|00000970| 6e 19 6e ad 84 c2 20 c3 | 56 1c 60 1d c6 0e 07 21 |n.n... .|V.`....!|
|00000980| 88 0d 62 88 0e 07 c3 56 | ab 9b 6e ab 8d 0c ab 84 |..b....V|..n.....|
|00000990| c2 20 6a 88 09 ab 83 08 | 63 88 c8 79 88 0e 07 53 |. j.....|c..y...S|
|000009a0| 89 16 07 aa 61 0d 62 88 | c9 7f 2b 87 22 20 5b 66 |....a.b.|..+." [f|
|000009b0| 69 6c 6c 2d 70 72 65 66 | 69 78 20 64 6f 2d 66 69 |ill-pref|ix do-fi|
|000009c0| 6c 6c 2d 70 72 65 66 69 | 78 20 63 75 72 72 65 6e |ll-prefi|x curren|
|000009d0| 74 2d 6c 65 66 74 2d 6d | 61 72 67 69 6e 20 30 20 |t-left-m|argin 0 |
|000009e0| 64 6f 2d 6c 65 66 74 2d | 6d 61 72 67 69 6e 20 6c |do-left-|margin l|
|000009f0| 6f 63 20 6e 65 77 6c 69 | 6e 65 20 61 72 67 20 31 |oc newli|ne arg 1|
|00000a00| 20 6e 69 6c 5d 20 33 20 | 28 23 24 20 2e 20 32 31 | nil] 3 |(#$ . 21|
|00000a10| 39 36 29 20 22 2a 70 22 | 5d 29 0a 23 40 36 36 20 |96) "*p"|]).#@66 |
|00000a20| 53 70 6c 69 74 20 63 75 | 72 72 65 6e 74 20 6c 69 |Split cu|rrent li|
|00000a30| 6e 65 2c 20 6d 6f 76 69 | 6e 67 20 70 6f 72 74 69 |ne, movi|ng porti|
|00000a40| 6f 6e 20 62 65 79 6f 6e | 64 20 70 6f 69 6e 74 20 |on beyon|d point |
|00000a50| 76 65 72 74 69 63 61 6c | 6c 79 20 64 6f 77 6e 2e |vertical|ly down.|
|00000a60| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 70 6c |..(defal|ias 'spl|
|00000a70| 69 74 2d 6c 69 6e 65 20 | 23 5b 6e 69 6c 20 22 c0 |it-line |#[nil ".|
|00000a80| c1 77 88 69 60 1a 1b c4 | c5 21 88 c6 0b c7 5c 22 |.w.i`...|.!....\"|
|00000a90| 88 5c 6e 62 2a 87 22 20 | 5b 22 20 09 22 20 6e 69 |.\nb*." |[" ." ni|
|00000aa0| 6c 20 70 6f 73 20 63 6f | 6c 20 6e 65 77 6c 69 6e |l pos co|l newlin|
|00000ab0| 65 20 31 20 69 6e 64 65 | 6e 74 2d 74 6f 20 30 5d |e 1 inde|nt-to 0]|
|00000ac0| 20 33 20 28 23 24 20 2e | 20 32 35 39 32 29 20 22 | 3 (#$ .| 2592) "|
|00000ad0| 2a 22 5d 29 0a 23 40 35 | 39 30 20 52 65 61 64 20 |*"]).#@5|90 Read |
|00000ae0| 6e 65 78 74 20 69 6e 70 | 75 74 20 63 68 61 72 61 |next inp|ut chara|
|00000af0| 63 74 65 72 20 61 6e 64 | 20 69 6e 73 65 72 74 20 |cter and| insert |
|00000b00| 69 74 2e 0a 54 68 69 73 | 20 69 73 20 75 73 65 66 |it..This| is usef|
|00000b10| 75 6c 20 66 6f 72 20 69 | 6e 73 65 72 74 69 6e 67 |ul for i|nserting|
|00000b20| 20 63 6f 6e 74 72 6f 6c | 20 63 68 61 72 61 63 74 | control| charact|
|00000b30| 65 72 73 2e 0a 59 6f 75 | 20 6d 61 79 20 61 6c 73 |ers..You| may als|
|00000b40| 6f 20 74 79 70 65 20 75 | 70 20 74 6f 20 33 20 6f |o type u|p to 3 o|
|00000b50| 63 74 61 6c 20 64 69 67 | 69 74 73 2c 20 74 6f 20 |ctal dig|its, to |
|00000b60| 69 6e 73 65 72 74 20 61 | 20 63 68 61 72 61 63 74 |insert a| charact|
|00000b70| 65 72 20 77 69 74 68 20 | 74 68 61 74 20 63 6f 64 |er with |that cod|
|00000b80| 65 2e 0a 0a 49 6e 20 6f | 76 65 72 77 72 69 74 65 |e...In o|verwrite|
|00000b90| 20 6d 6f 64 65 2c 20 74 | 68 69 73 20 66 75 6e 63 | mode, t|his func|
|00000ba0| 74 69 6f 6e 20 69 6e 73 | 65 72 74 73 20 74 68 65 |tion ins|erts the|
|00000bb0| 20 63 68 61 72 61 63 74 | 65 72 20 61 6e 79 77 61 | charact|er anywa|
|00000bc0| 79 2c 20 61 6e 64 0a 64 | 6f 65 73 20 6e 6f 74 20 |y, and.d|oes not |
|00000bd0| 68 61 6e 64 6c 65 20 6f | 63 74 61 6c 20 64 69 67 |handle o|ctal dig|
|00000be0| 69 74 73 20 73 70 65 63 | 69 61 6c 6c 79 2e 20 20 |its spec|ially.  |
|00000bf0| 54 68 69 73 20 6d 65 61 | 6e 73 20 74 68 61 74 20 |This mea|ns that |
|00000c00| 69 66 20 79 6f 75 20 75 | 73 65 0a 6f 76 65 72 77 |if you u|se.overw|
|00000c10| 72 69 74 65 20 61 73 20 | 79 6f 75 72 20 6e 6f 72 |rite as |your nor|
|00000c20| 6d 61 6c 20 65 64 69 74 | 69 6e 67 20 6d 6f 64 65 |mal edit|ing mode|
|00000c30| 2c 20 79 6f 75 20 63 61 | 6e 20 75 73 65 20 74 68 |, you ca|n use th|
|00000c40| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 74 6f 0a 69 |is funct|ion to.i|
|00000c50| 6e 73 65 72 74 20 63 68 | 61 72 61 63 74 65 72 73 |nsert ch|aracters|
|00000c60| 20 77 68 65 6e 20 6e 65 | 63 65 73 73 61 72 79 2e | when ne|cessary.|
|00000c70| 0a 0a 49 6e 20 62 69 6e | 61 72 79 20 6f 76 65 72 |..In bin|ary over|
|00000c80| 77 72 69 74 65 20 6d 6f | 64 65 2c 20 74 68 69 73 |write mo|de, this|
|00000c90| 20 66 75 6e 63 74 69 6f | 6e 20 64 6f 65 73 20 6f | functio|n does o|
|00000ca0| 76 65 72 77 72 69 74 65 | 2c 20 61 6e 64 20 6f 63 |verwrite|, and oc|
|00000cb0| 74 61 6c 0a 64 69 67 69 | 74 73 20 61 72 65 20 69 |tal.digi|ts are i|
|00000cc0| 6e 74 65 72 70 72 65 74 | 65 64 20 61 73 20 61 20 |nterpret|ed as a |
|00000cd0| 63 68 61 72 61 63 74 65 | 72 20 63 6f 64 65 2e 20 |characte|r code. |
|00000ce0| 20 54 68 69 73 20 69 73 | 20 73 75 70 70 6f 73 65 | This is| suppose|
|00000cf0| 64 20 74 6f 20 6d 61 6b | 65 0a 74 68 69 73 20 66 |d to mak|e.this f|
|00000d00| 75 6e 63 74 69 6f 6e 20 | 75 73 65 66 75 6c 20 69 |unction |useful i|
|00000d10| 6e 20 65 64 69 74 69 6e | 67 20 62 69 6e 61 72 79 |n editin|g binary|
|00000d20| 20 66 69 6c 65 73 2e 1f | 0a 28 64 65 66 61 6c 69 | files..|.(defali|
|00000d30| 61 73 20 27 71 75 6f 74 | 65 64 2d 69 6e 73 65 72 |as 'quot|ed-inser|
|00000d40| 74 20 23 5b 28 61 72 67 | 29 20 22 08 ab 85 08 c1 |t #[(arg|) ".....|
|00000d50| 61 ab 84 c2 20 aa 82 c3 | 20 1c 0d c6 56 ab 89 08 |a... ...| ...V...|
|00000d60| c1 61 ab 84 c7 0d 21 88 | 0d c6 56 ad 89 0c 63 88 |.a....!.|..V...c.|
|00000d70| 0d 53 89 15 aa 73 29 87 | 22 20 5b 6f 76 65 72 77 |.S...s).|" [overw|
|00000d80| 72 69 74 65 2d 6d 6f 64 | 65 20 6f 76 65 72 77 72 |rite-mod|e overwr|
|00000d90| 69 74 65 2d 6d 6f 64 65 | 2d 62 69 6e 61 72 79 20 |ite-mode|-binary |
|00000da0| 72 65 61 64 2d 71 75 6f | 74 65 64 2d 63 68 61 72 |read-quo|ted-char|
|00000db0| 20 72 65 61 64 2d 63 68 | 61 72 20 63 68 61 72 20 | read-ch|ar char |
|00000dc0| 61 72 67 20 30 20 64 65 | 6c 65 74 65 2d 63 68 61 |arg 0 de|lete-cha|
|00000dd0| 72 5d 20 33 20 28 23 24 | 20 2e 20 32 37 37 39 29 |r] 3 (#$| . 2779)|
|00000de0| 20 22 2a 70 22 5d 29 0a | 23 40 31 37 38 20 4a 6f | "*p"]).|#@178 Jo|
|00000df0| 69 6e 20 74 68 69 73 20 | 6c 69 6e 65 20 74 6f 20 |in this |line to |
|00000e00| 70 72 65 76 69 6f 75 73 | 20 61 6e 64 20 66 69 78 |previous| and fix|
|00000e10| 20 75 70 20 77 68 69 74 | 65 73 70 61 63 65 20 61 | up whit|espace a|
|00000e20| 74 20 6a 6f 69 6e 2e 0a | 49 66 20 74 68 65 72 65 |t join..|If there|
|00000e30| 20 69 73 20 61 20 66 69 | 6c 6c 20 70 72 65 66 69 | is a fi|ll prefi|
|00000e40| 78 2c 20 64 65 6c 65 74 | 65 20 69 74 20 66 72 6f |x, delet|e it fro|
|00000e50| 6d 20 74 68 65 20 62 65 | 67 69 6e 6e 69 6e 67 20 |m the be|ginning |
|00000e60| 6f 66 20 74 68 69 73 20 | 6c 69 6e 65 2e 0a 57 69 |of this |line..Wi|
|00000e70| 74 68 20 61 72 67 75 6d | 65 6e 74 2c 20 6a 6f 69 |th argum|ent, joi|
|00000e80| 6e 20 74 68 69 73 20 6c | 69 6e 65 20 74 6f 20 66 |n this l|ine to f|
|00000e90| 6f 6c 6c 6f 77 69 6e 67 | 20 6c 69 6e 65 2e 1f 0a |ollowing| line...|
|00000ea0| 28 64 65 66 61 6c 69 61 | 73 20 27 64 65 6c 65 74 |(defalia|s 'delet|
|00000eb0| 65 2d 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 23 5b |e-indent|ation #[|
|00000ec0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|00000ed0| 22 c0 79 88 09 ab 83 c2 | 79 88 c3 60 21 c4 61 ad |".y.....|y..`!.a.|
|00000ee0| a3 60 60 53 7c 88 0d ab | 99 60 0d 47 5c 5c 64 58 |.``S|...|.`.G\\dX|
|00000ef0| ab 91 0d 60 60 0d 47 5c | 5c 7b 98 ab 87 60 60 0d |...``.G\|\{...``.|
|00000f00| 47 5c 5c 7c 88 c6 20 87 | 22 20 5b 30 20 61 72 67 |G\\|.. .|" [0 arg|
|00000f10| 20 31 20 63 68 61 72 2d | 62 65 66 6f 72 65 20 3f | 1 char-|before ?|
|00000f20| 5c 6e 20 66 69 6c 6c 2d | 70 72 65 66 69 78 20 66 |\n fill-|prefix f|
|00000f30| 69 78 75 70 2d 77 68 69 | 74 65 73 70 61 63 65 5d |ixup-whi|tespace]|
|00000f40| 20 34 20 28 23 24 20 2e | 20 33 35 36 36 29 20 22 | 4 (#$ .| 3566) "|
|00000f50| 2a 50 22 5d 29 0a 23 40 | 31 30 30 20 46 69 78 75 |*P"]).#@|100 Fixu|
|00000f60| 70 20 77 68 69 74 65 20 | 73 70 61 63 65 20 62 65 |p white |space be|
|00000f70| 74 77 65 65 6e 20 6f 62 | 6a 65 63 74 73 20 61 72 |tween ob|jects ar|
|00000f80| 6f 75 6e 64 20 70 6f 69 | 6e 74 2e 0a 4c 65 61 76 |ound poi|nt..Leav|
|00000f90| 65 20 6f 6e 65 20 73 70 | 61 63 65 20 6f 72 20 6e |e one sp|ace or n|
|00000fa0| 6f 6e 65 2c 20 61 63 63 | 6f 72 64 69 6e 67 20 74 |one, acc|ording t|
|00000fb0| 6f 20 74 68 65 20 63 6f | 6e 74 65 78 74 2e 1f 0a |o the co|ntext...|
|00000fc0| 28 64 65 66 61 6c 69 61 | 73 20 27 66 69 78 75 70 |(defalia|s 'fixup|
|00000fd0| 2d 77 68 69 74 65 73 70 | 61 63 65 20 23 5b 6e 69 |-whitesp|ace #[ni|
|00000fe0| 6c 20 22 8a c0 20 88 c1 | c2 21 ae 88 8a c3 75 88 |l ".. ..|.!....u.|
|00000ff0| c1 c4 21 29 3f ad 82 c5 | 63 29 87 22 20 5b 64 65 |..!)?...|c)." [de|
|00001000| 6c 65 74 65 2d 68 6f 72 | 69 7a 6f 6e 74 61 6c 2d |lete-hor|izontal-|
|00001010| 73 70 61 63 65 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |space lo|oking-at|
|00001020| 20 22 5e 5c 5c 7c 5c 5c | 73 29 22 20 2d 31 20 22 | "^\\|\\|s)" -1 "|
|00001030| 24 5c 5c 7c 5c 5c 73 28 | 5c 5c 7c 5c 5c 73 27 22 |$\\|\\s(|\\|\\s'"|
|00001040| 20 3f 5c 20 5d 20 32 20 | 28 23 24 20 2e 20 33 39 | ?\ ] 2 |(#$ . 39|
|00001050| 33 32 29 20 22 2a 22 5d | 29 0a 23 40 34 32 20 44 |32) "*"]|).#@42 D|
|00001060| 65 6c 65 74 65 20 61 6c | 6c 20 73 70 61 63 65 73 |elete al|l spaces|
|00001070| 20 61 6e 64 20 74 61 62 | 73 20 61 72 6f 75 6e 64 | and tab|s around|
|00001080| 20 70 6f 69 6e 74 2e 1f | 0a 28 64 65 66 61 6c 69 | point..|.(defali|
|00001090| 61 73 20 27 64 65 6c 65 | 74 65 2d 68 6f 72 69 7a |as 'dele|te-horiz|
|000010a0| 6f 6e 74 61 6c 2d 73 70 | 61 63 65 20 23 5b 6e 69 |ontal-sp|ace #[ni|
|000010b0| 6c 20 22 c0 c1 78 88 60 | c0 c1 77 88 60 7c 87 22 |l "..x.`|..w.`|."|
|000010c0| 20 5b 22 20 09 22 20 6e | 69 6c 5d 20 33 20 28 23 | [" ." n|il] 3 (#|
|000010d0| 24 20 2e 20 34 31 39 31 | 29 20 22 2a 22 5d 29 0a |$ . 4191|) "*"]).|
|000010e0| 23 40 36 31 20 44 65 6c | 65 74 65 20 61 6c 6c 20 |#@61 Del|ete all |
|000010f0| 73 70 61 63 65 73 20 61 | 6e 64 20 74 61 62 73 20 |spaces a|nd tabs |
|00001100| 61 72 6f 75 6e 64 20 70 | 6f 69 6e 74 2c 20 6c 65 |around p|oint, le|
|00001110| 61 76 69 6e 67 20 6f 6e | 65 20 73 70 61 63 65 2e |aving on|e space.|
|00001120| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6a 75 73 |..(defal|ias 'jus|
|00001130| 74 2d 6f 6e 65 2d 73 70 | 61 63 65 20 23 5b 6e 69 |t-one-sp|ace #[ni|
|00001140| 6c 20 22 08 ab 83 c1 20 | 88 c2 c3 78 88 60 66 c4 |l ".... |...x.`f.|
|00001150| 61 ab 85 c5 75 88 aa 83 | c4 63 88 60 c2 c3 77 88 |a...u...|.c.`..w.|
|00001160| 60 7c 87 22 20 5b 61 62 | 62 72 65 76 2d 6d 6f 64 |`|." [ab|brev-mod|
|00001170| 65 20 65 78 70 61 6e 64 | 2d 61 62 62 72 65 76 20 |e expand|-abbrev |
|00001180| 22 20 09 22 20 6e 69 6c | 20 3f 5c 20 20 31 5d 20 |" ." nil| ?\  1] |
|00001190| 33 20 28 23 24 20 2e 20 | 34 33 32 35 29 20 22 2a |3 (#$ . |4325) "*|
|000011a0| 22 5d 29 0a 23 40 31 37 | 35 20 4f 6e 20 62 6c 61 |"]).#@17|5 On bla|
|000011b0| 6e 6b 20 6c 69 6e 65 2c | 20 64 65 6c 65 74 65 20 |nk line,| delete |
|000011c0| 61 6c 6c 20 73 75 72 72 | 6f 75 6e 64 69 6e 67 20 |all surr|ounding |
|000011d0| 62 6c 61 6e 6b 20 6c 69 | 6e 65 73 2c 20 6c 65 61 |blank li|nes, lea|
|000011e0| 76 69 6e 67 20 6a 75 73 | 74 20 6f 6e 65 2e 0a 4f |ving jus|t one..O|
|000011f0| 6e 20 69 73 6f 6c 61 74 | 65 64 20 62 6c 61 6e 6b |n isolat|ed blank|
|00001200| 20 6c 69 6e 65 2c 20 64 | 65 6c 65 74 65 20 74 68 | line, d|elete th|
|00001210| 61 74 20 6f 6e 65 2e 0a | 4f 6e 20 6e 6f 6e 62 6c |at one..|On nonbl|
|00001220| 61 6e 6b 20 6c 69 6e 65 | 2c 20 64 65 6c 65 74 65 |ank line|, delete|
|00001230| 20 61 6e 79 20 69 6d 6d | 65 64 69 61 74 65 6c 79 | any imm|ediately|
|00001240| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 62 6c 61 6e 6b | followi|ng blank|
|00001250| 20 6c 69 6e 65 73 2e 1f | 0a 28 64 65 66 61 6c 69 | lines..|.(defali|
|00001260| 61 73 20 27 64 65 6c 65 | 74 65 2d 62 6c 61 6e 6b |as 'dele|te-blank|
|00001270| 2d 6c 69 6e 65 73 20 23 | 5b 6e 69 6c 20 22 c0 89 |-lines #|[nil "..|
|00001280| 19 1a 8a c3 79 88 c4 c5 | 21 89 12 ad 90 c4 c6 21 |....y...|!......!|
|00001290| 3f ad 8a 6f ae 87 c7 79 | 88 c4 c5 21 3f 11 29 5c |?..o...y|...!?.)\|
|000012a0| 6e ab 9a c3 79 88 09 ab | 83 c8 79 88 60 c9 ca c0 |n...y...|..y.`...|
|000012b0| cb 23 ab 86 c8 79 88 60 | aa 81 65 7c 88 5c 6e ab |.#...y.`|..e|.\n.|
|000012c0| 83 09 ac 99 8a c0 7f 88 | c8 79 88 60 cc ca c0 cb |........|.y.`....|
|000012d0| 23 ab 86 c3 79 88 60 aa | 81 64 7c 88 29 c4 cd 21 |#...y.`.|.d|.)..!|
|000012e0| ad 83 60 64 7c 2a 87 22 | 20 5b 6e 69 6c 20 73 69 |..`d|*."| [nil si|
|000012f0| 6e 67 6c 65 62 6c 61 6e | 6b 20 74 68 69 73 62 6c |ngleblan|k thisbl|
|00001300| 61 6e 6b 20 30 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |ank 0 lo|oking-at|
|00001310| 20 22 5b 20 09 5d 2a 24 | 22 20 22 5b 20 09 5d 2a | "[ .]*$|" "[ .]*|
|00001320| 5c 6e 5b 20 09 5d 2a 24 | 22 20 2d 31 20 31 20 72 |\n[ .]*$|" -1 1 r|
|00001330| 65 2d 73 65 61 72 63 68 | 2d 62 61 63 6b 77 61 72 |e-search|-backwar|
|00001340| 64 20 22 5b 5e 20 09 5c | 6e 5d 22 20 74 20 72 65 |d "[^ .\|n]" t re|
|00001350| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00001360| 22 5e 5b 20 09 5d 2a 5c | 6e 5c 5c 27 22 5d 20 36 |"^[ .]*\|n\\'"] 6|
|00001370| 20 28 23 24 20 2e 20 34 | 35 32 32 29 20 22 2a 22 | (#$ . 4|522) "*"|
|00001380| 5d 29 0a 23 40 36 34 20 | 4d 6f 76 65 20 70 6f 69 |]).#@64 |Move poi|
|00001390| 6e 74 20 74 6f 20 74 68 | 65 20 66 69 72 73 74 20 |nt to th|e first |
|000013a0| 6e 6f 6e 2d 77 68 69 74 | 65 73 70 61 63 65 20 63 |non-whit|espace c|
|000013b0| 68 61 72 61 63 74 65 72 | 20 6f 6e 20 74 68 69 73 |haracter| on this|
|000013c0| 20 6c 69 6e 65 2e 1f 0a | 28 64 65 66 61 6c 69 61 | line...|(defalia|
|000013d0| 73 20 27 62 61 63 6b 2d | 74 6f 2d 69 6e 64 65 6e |s 'back-|to-inden|
|000013e0| 74 61 74 69 6f 6e 20 23 | 5b 6e 69 6c 20 22 c0 79 |tation #|[nil ".y|
|000013f0| 88 c1 c2 77 87 22 20 5b | 30 20 22 20 09 22 20 6e |...w." [|0 " ." n|
|00001400| 69 6c 5d 20 32 20 28 23 | 24 20 2e 20 35 30 30 30 |il] 2 (#|$ . 5000|
|00001410| 29 20 22 5f 22 5d 29 0a | 23 40 33 30 34 20 49 6e |) "_"]).|#@304 In|
|00001420| 73 65 72 74 20 61 20 6e | 65 77 6c 69 6e 65 2c 20 |sert a n|ewline, |
|00001430| 74 68 65 6e 20 69 6e 64 | 65 6e 74 20 61 63 63 6f |then ind|ent acco|
|00001440| 72 64 69 6e 67 20 74 6f | 20 6d 61 6a 6f 72 20 6d |rding to| major m|
|00001450| 6f 64 65 2e 0a 49 6e 64 | 65 6e 74 61 74 69 6f 6e |ode..Ind|entation|
|00001460| 20 69 73 20 64 6f 6e 65 | 20 75 73 69 6e 67 20 74 | is done| using t|
|00001470| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 60 69 6e 64 |he value| of `ind|
|00001480| 65 6e 74 2d 6c 69 6e 65 | 2d 66 75 6e 63 74 69 6f |ent-line|-functio|
|00001490| 6e 27 2e 0a 49 6e 20 70 | 72 6f 67 72 61 6d 6d 69 |n'..In p|rogrammi|
|000014a0| 6e 67 20 6c 61 6e 67 75 | 61 67 65 20 6d 6f 64 65 |ng langu|age mode|
|000014b0| 73 2c 20 74 68 69 73 20 | 69 73 20 74 68 65 20 73 |s, this |is the s|
|000014c0| 61 6d 65 20 61 73 20 54 | 41 42 2e 0a 49 6e 20 73 |ame as T|AB..In s|
|000014d0| 6f 6d 65 20 74 65 78 74 | 20 6d 6f 64 65 73 2c 20 |ome text| modes, |
|000014e0| 77 68 65 72 65 20 54 41 | 42 20 69 6e 73 65 72 74 |where TA|B insert|
|000014f0| 73 20 61 20 74 61 62 2c | 20 74 68 69 73 20 63 6f |s a tab,| this co|
|00001500| 6d 6d 61 6e 64 20 69 6e | 64 65 6e 74 73 20 74 6f |mmand in|dents to|
|00001510| 20 74 68 65 0a 63 6f 6c | 75 6d 6e 20 73 70 65 63 | the.col|umn spec|
|00001520| 69 66 69 65 64 20 62 79 | 20 74 68 65 20 66 75 6e |ified by| the fun|
|00001530| 63 74 69 6f 6e 20 60 63 | 75 72 72 65 6e 74 2d 6c |ction `c|urrent-l|
|00001540| 65 66 74 2d 6d 61 72 67 | 69 6e 27 2e 1f 0a 28 64 |eft-marg|in'...(d|
|00001550| 65 66 61 6c 69 61 73 20 | 27 6e 65 77 6c 69 6e 65 |efalias |'newline|
|00001560| 2d 61 6e 64 2d 69 6e 64 | 65 6e 74 20 23 5b 6e 69 |-and-ind|ent #[ni|
|00001570| 6c 20 22 60 c0 c1 78 88 | 60 7c 88 c2 20 88 c3 20 |l "`..x.|`|.. .. |
|00001580| 87 22 20 5b 22 20 09 22 | 20 6e 69 6c 20 6e 65 77 |." [" ."| nil new|
|00001590| 6c 69 6e 65 20 69 6e 64 | 65 6e 74 2d 61 63 63 6f |line ind|ent-acco|
|000015a0| 72 64 69 6e 67 2d 74 6f | 2d 6d 6f 64 65 5d 20 33 |rding-to|-mode] 3|
|000015b0| 20 28 23 24 20 2e 20 35 | 31 35 30 29 20 22 2a 22 | (#$ . 5|150) "*"|
|000015c0| 5d 29 0a 23 40 33 37 39 | 20 52 65 69 6e 64 65 6e |]).#@379| Reinden|
|000015d0| 74 20 63 75 72 72 65 6e | 74 20 6c 69 6e 65 2c 20 |t curren|t line, |
|000015e0| 69 6e 73 65 72 74 20 6e | 65 77 6c 69 6e 65 2c 20 |insert n|ewline, |
|000015f0| 74 68 65 6e 20 69 6e 64 | 65 6e 74 20 74 68 65 20 |then ind|ent the |
|00001600| 6e 65 77 20 6c 69 6e 65 | 2e 0a 49 6e 64 65 6e 74 |new line|..Indent|
|00001610| 61 74 69 6f 6e 20 6f 66 | 20 62 6f 74 68 20 6c 69 |ation of| both li|
|00001620| 6e 65 73 20 69 73 20 64 | 6f 6e 65 20 61 63 63 6f |nes is d|one acco|
|00001630| 72 64 69 6e 67 20 74 6f | 20 74 68 65 20 63 75 72 |rding to| the cur|
|00001640| 72 65 6e 74 20 6d 61 6a | 6f 72 20 6d 6f 64 65 2c |rent maj|or mode,|
|00001650| 0a 77 68 69 63 68 20 6d | 65 61 6e 73 20 63 61 6c |.which m|eans cal|
|00001660| 6c 69 6e 67 20 74 68 65 | 20 63 75 72 72 65 6e 74 |ling the| current|
|00001670| 20 76 61 6c 75 65 20 6f | 66 20 60 69 6e 64 65 6e | value o|f `inden|
|00001680| 74 2d 6c 69 6e 65 2d 66 | 75 6e 63 74 69 6f 6e 27 |t-line-f|unction'|
|00001690| 2e 0a 49 6e 20 70 72 6f | 67 72 61 6d 6d 69 6e 67 |..In pro|gramming|
|000016a0| 20 6c 61 6e 67 75 61 67 | 65 20 6d 6f 64 65 73 2c | languag|e modes,|
|000016b0| 20 74 68 69 73 20 69 73 | 20 74 68 65 20 73 61 6d | this is| the sam|
|000016c0| 65 20 61 73 20 54 41 42 | 2e 0a 49 6e 20 73 6f 6d |e as TAB|..In som|
|000016d0| 65 20 74 65 78 74 20 6d | 6f 64 65 73 2c 20 77 68 |e text m|odes, wh|
|000016e0| 65 72 65 20 54 41 42 20 | 69 6e 73 65 72 74 73 20 |ere TAB |inserts |
|000016f0| 61 20 74 61 62 2c 20 74 | 68 69 73 20 69 6e 64 65 |a tab, t|his inde|
|00001700| 6e 74 73 20 74 6f 20 74 | 68 65 0a 63 6f 6c 75 6d |nts to t|he.colum|
|00001710| 6e 20 73 70 65 63 69 66 | 69 65 64 20 62 79 20 74 |n specif|ied by t|
|00001720| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 60 63 75 72 |he funct|ion `cur|
|00001730| 72 65 6e 74 2d 6c 65 66 | 74 2d 6d 61 72 67 69 6e |rent-lef|t-margin|
|00001740| 27 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 72 |'...(def|alias 'r|
|00001750| 65 69 6e 64 65 6e 74 2d | 74 68 65 6e 2d 6e 65 77 |eindent-|then-new|
|00001760| 6c 69 6e 65 2d 61 6e 64 | 2d 69 6e 64 65 6e 74 20 |line-and|-indent |
|00001770| 23 5b 6e 69 6c 20 22 8a | 60 c0 c1 78 88 60 7c 88 |#[nil ".|`..x.`|.|
|00001780| c2 20 88 29 c3 20 88 c2 | 20 87 22 20 5b 22 20 09 |. .). ..| ." [" .|
|00001790| 22 20 6e 69 6c 20 69 6e | 64 65 6e 74 2d 61 63 63 |" nil in|dent-acc|
|000017a0| 6f 72 64 69 6e 67 2d 74 | 6f 2d 6d 6f 64 65 20 6e |ording-t|o-mode n|
|000017b0| 65 77 6c 69 6e 65 5d 20 | 33 20 28 23 24 20 2e 20 |ewline] |3 (#$ . |
|000017c0| 35 35 37 37 29 20 22 2a | 22 5d 29 0a 28 64 65 66 |5577) "*|"]).(def|
|000017d0| 61 6c 69 61 73 20 27 6b | 69 6c 6c 2d 66 6f 72 77 |alias 'k|ill-forw|
|000017e0| 61 72 64 2d 63 68 61 72 | 73 20 23 5b 28 61 72 67 |ard-char|s #[(arg|
|000017f0| 29 20 22 08 3c ab 83 08 | 40 10 08 c1 61 ab 82 c2 |) ".<...|@...a...|
|00001800| 10 c3 60 60 08 5c 5c 5c | 22 87 22 20 5b 61 72 67 |..``.\\\|"." [arg|
|00001810| 20 2d 20 2d 31 20 6b 69 | 6c 6c 2d 72 65 67 69 6f | - -1 ki|ll-regio|
|00001820| 6e 5d 20 34 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |n] 4]).(|defalias|
|00001830| 20 27 6b 69 6c 6c 2d 62 | 61 63 6b 77 61 72 64 2d | 'kill-b|ackward-|
|00001840| 63 68 61 72 73 20 23 5b | 28 61 72 67 29 20 22 08 |chars #[|(arg) ".|
|00001850| 3c ab 83 08 40 10 08 c1 | 61 ab 82 c2 10 c3 60 60 |<...@...|a.....``|
|00001860| 08 5a 5c 22 87 22 20 5b | 61 72 67 20 2d 20 2d 31 |.Z\"." [|arg - -1|
|00001870| 20 6b 69 6c 6c 2d 72 65 | 67 69 6f 6e 5d 20 34 5d | kill-re|gion] 4]|
|00001880| 29 0a 23 40 32 31 39 20 | 44 65 6c 65 74 65 20 63 |).#@219 |Delete c|
|00001890| 68 61 72 61 63 74 65 72 | 73 20 62 61 63 6b 77 61 |haracter|s backwa|
|000018a0| 72 64 2c 20 63 68 61 6e | 67 69 6e 67 20 74 61 62 |rd, chan|ging tab|
|000018b0| 73 20 69 6e 74 6f 20 73 | 70 61 63 65 73 2e 0a 44 |s into s|paces..D|
|000018c0| 65 6c 65 74 65 20 41 52 | 47 20 63 68 61 72 73 2c |elete AR|G chars,|
|000018d0| 20 61 6e 64 20 6b 69 6c | 6c 20 28 73 61 76 65 20 | and kil|l (save |
|000018e0| 69 6e 20 6b 69 6c 6c 20 | 72 69 6e 67 29 20 69 66 |in kill |ring) if|
|000018f0| 20 4b 49 4c 4c 50 20 69 | 73 20 6e 6f 6e 2d 6e 69 | KILLP i|s non-ni|
|00001900| 6c 2e 0a 49 6e 74 65 72 | 61 63 74 69 76 65 6c 79 |l..Inter|actively|
|00001910| 2c 20 41 52 47 20 69 73 | 20 74 68 65 20 70 72 65 |, ARG is| the pre|
|00001920| 66 69 78 20 61 72 67 20 | 28 64 65 66 61 75 6c 74 |fix arg |(default|
|00001930| 20 31 29 0a 61 6e 64 20 | 4b 49 4c 4c 50 20 69 73 | 1).and |KILLP is|
|00001940| 20 74 20 69 66 20 61 20 | 70 72 65 66 69 78 20 61 | t if a |prefix a|
|00001950| 72 67 20 77 61 73 20 73 | 70 65 63 69 66 69 65 64 |rg was s|pecified|
|00001960| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 62 61 |...(defa|lias 'ba|
|00001970| 63 6b 77 61 72 64 2d 64 | 65 6c 65 74 65 2d 63 68 |ckward-d|elete-ch|
|00001980| 61 72 2d 75 6e 74 61 62 | 69 66 79 20 23 5b 28 61 |ar-untab|ify #[(a|
|00001990| 72 67 20 26 6f 70 74 69 | 6f 6e 61 6c 20 6b 69 6c |rg &opti|onal kil|
|000019a0| 6c 70 29 20 22 08 19 8a | 09 c2 56 ab a6 6f ac a3 |lp) "...|..V..o..|
|000019b0| c3 60 21 c4 61 ab 93 69 | 1d c6 75 88 0d 69 5a 15 |.`!.a..i|..u..iZ.|
|000019c0| c7 c8 0d 5c 22 88 c9 ca | 21 88 29 c6 75 88 09 53 |...\"...|!.).u..S|
|000019d0| 89 11 aa 56 2a cb 08 0e | 0c 5c 22 88 0e 0d ad 8a |...V*...|.\".....|
|000019e0| 6c 3f ad 86 8a c7 c8 08 | 5c 22 29 87 22 20 5b 61 |l?......|\")." [a|
|000019f0| 72 67 20 63 6f 75 6e 74 | 20 30 20 63 68 61 72 2d |rg count| 0 char-|
|00001a00| 62 65 66 6f 72 65 20 3f | 5c 74 20 63 6f 6c 20 2d |before ?|\t col -|
|00001a10| 31 20 69 6e 73 65 72 74 | 2d 63 68 61 72 20 3f 5c |1 insert|-char ?\|
|00001a20| 20 20 64 65 6c 65 74 65 | 2d 63 68 61 72 20 31 20 |  delete|-char 1 |
|00001a30| 64 65 6c 65 74 65 2d 62 | 61 63 6b 77 61 72 64 2d |delete-b|ackward-|
|00001a40| 63 68 61 72 20 6b 69 6c | 6c 70 20 6f 76 65 72 77 |char kil|lp overw|
|00001a50| 72 69 74 65 2d 6d 6f 64 | 65 5d 20 34 20 28 23 24 |rite-mod|e] 4 (#$|
|00001a60| 20 2e 20 36 32 38 30 29 | 20 22 2a 70 5c 6e 50 22 | . 6280)| "*p\nP"|
|00001a70| 5d 29 0a 28 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |]).(cust|om-decla|
|00001a80| 72 65 2d 76 61 72 69 61 | 62 6c 65 20 27 64 65 6c |re-varia|ble 'del|
|00001a90| 65 74 65 2d 6b 65 79 2d | 64 65 6c 65 74 65 73 2d |ete-key-|deletes-|
|00001aa0| 66 6f 72 77 61 72 64 20 | 27 6e 69 6c 20 22 2a 49 |forward |'nil "*I|
|00001ab0| 66 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 74 68 65 20 44 |f non-ni|l, the D|
|00001ac0| 45 4c 20 6b 65 79 20 77 | 69 6c 6c 20 65 72 61 73 |EL key w|ill eras|
|00001ad0| 65 20 6f 6e 65 20 63 68 | 61 72 61 63 74 65 72 20 |e one ch|aracter |
|00001ae0| 66 6f 72 77 61 72 64 73 | 2e 5c 6e 49 66 20 6e 69 |forwards|.\nIf ni|
|00001af0| 6c 2c 20 74 68 65 20 44 | 45 4c 20 6b 65 79 20 77 |l, the D|EL key w|
|00001b00| 69 6c 6c 20 65 72 61 73 | 65 20 6f 6e 65 20 63 68 |ill eras|e one ch|
|00001b10| 61 72 61 63 74 65 72 20 | 62 61 63 6b 77 61 72 64 |aracter |backward|
|00001b20| 73 2e 22 20 3a 74 79 70 | 65 20 27 62 6f 6f 6c 65 |s." :typ|e 'boole|
|00001b30| 61 6e 20 3a 67 72 6f 75 | 70 20 27 65 64 69 74 69 |an :grou|p 'editi|
|00001b40| 6e 67 2d 62 61 73 69 63 | 73 29 0a 28 63 75 73 74 |ng-basic|s).(cust|
|00001b50| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00001b60| 62 6c 65 20 27 62 61 63 | 6b 77 61 72 64 2d 64 65 |ble 'bac|kward-de|
|00001b70| 6c 65 74 65 2d 66 75 6e | 63 74 69 6f 6e 20 27 27 |lete-fun|ction ''|
|00001b80| 62 61 63 6b 77 61 72 64 | 2d 64 65 6c 65 74 65 2d |backward|-delete-|
|00001b90| 63 68 61 72 20 22 2a 46 | 75 6e 63 74 69 6f 6e 20 |char "*F|unction |
|00001ba0| 63 61 6c 6c 65 64 20 74 | 6f 20 64 65 6c 65 74 65 |called t|o delete|
|00001bb0| 20 62 61 63 6b 77 61 72 | 64 73 20 6f 6e 20 61 20 | backwar|ds on a |
|00001bc0| 64 65 6c 65 74 65 20 6b | 65 79 70 72 65 73 73 2e |delete k|eypress.|
|00001bd0| 5c 6e 49 66 20 60 64 65 | 6c 65 74 65 2d 6b 65 79 |\nIf `de|lete-key|
|00001be0| 2d 64 65 6c 65 74 65 73 | 2d 66 6f 72 77 61 72 64 |-deletes|-forward|
|00001bf0| 27 20 69 73 20 6e 69 6c | 2c 20 60 62 61 63 6b 77 |' is nil|, `backw|
|00001c00| 61 72 64 2d 6f 72 2d 66 | 6f 72 77 61 72 64 2d 64 |ard-or-f|orward-d|
|00001c10| 65 6c 65 74 65 2d 63 68 | 61 72 27 5c 6e 63 61 6c |elete-ch|ar'\ncal|
|00001c20| 6c 73 20 74 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |ls this |function|
|00001c30| 20 74 6f 20 65 72 61 73 | 65 20 6f 6e 65 20 63 68 | to eras|e one ch|
|00001c40| 61 72 61 63 74 65 72 20 | 62 61 63 6b 77 61 72 64 |aracter |backward|
|00001c50| 73 2e 20 20 44 65 66 61 | 75 6c 74 20 76 61 6c 75 |s.  Defa|ult valu|
|00001c60| 65 5c 6e 69 73 20 27 62 | 61 63 6b 77 61 72 64 2d |e\nis 'b|ackward-|
|00001c70| 64 65 6c 65 74 65 2d 63 | 68 61 72 2c 20 77 69 74 |delete-c|har, wit|
|00001c80| 68 20 27 62 61 63 6b 77 | 61 72 64 2d 64 65 6c 65 |h 'backw|ard-dele|
|00001c90| 74 65 2d 63 68 61 72 2d | 75 6e 74 61 62 69 66 79 |te-char-|untabify|
|00001ca0| 20 62 65 69 6e 67 20 61 | 5c 6e 70 6f 70 75 6c 61 | being a|\npopula|
|00001cb0| 72 20 61 6c 74 65 72 6e | 61 74 65 20 73 65 74 74 |r altern|ate sett|
|00001cc0| 69 6e 67 2e 22 20 3a 74 | 79 70 65 20 27 66 75 6e |ing." :t|ype 'fun|
|00001cd0| 63 74 69 6f 6e 20 3a 67 | 72 6f 75 70 20 27 65 64 |ction :g|roup 'ed|
|00001ce0| 69 74 69 6e 67 2d 62 61 | 73 69 63 73 29 0a 23 40 |iting-ba|sics).#@|
|00001cf0| 32 38 35 20 44 65 6c 65 | 74 65 20 65 69 74 68 65 |285 Dele|te eithe|
|00001d00| 72 20 6f 6e 65 20 63 68 | 61 72 61 63 74 65 72 20 |r one ch|aracter |
|00001d10| 62 61 63 6b 77 61 72 64 | 73 20 6f 72 20 6f 6e 65 |backward|s or one|
|00001d20| 20 63 68 61 72 61 63 74 | 65 72 20 66 6f 72 77 61 | charact|er forwa|
|00001d30| 72 64 73 2e 0a 43 6f 6e | 74 72 6f 6c 6c 65 64 20 |rds..Con|trolled |
|00001d40| 62 79 20 74 68 65 20 73 | 74 61 74 65 20 6f 66 20 |by the s|tate of |
|00001d50| 60 64 65 6c 65 74 65 2d | 6b 65 79 2d 64 65 6c 65 |`delete-|key-dele|
|00001d60| 74 65 73 2d 66 6f 72 77 | 61 72 64 27 20 61 6e 64 |tes-forw|ard' and|
|00001d70| 20 77 68 65 74 68 65 72 | 20 74 68 65 0a 42 61 63 | whether| the.Bac|
|00001d80| 6b 53 70 61 63 65 20 6b | 65 79 73 79 6d 20 65 76 |kSpace k|eysym ev|
|00001d90| 65 6e 20 65 78 69 73 74 | 73 20 6f 6e 20 79 6f 75 |en exist|s on you|
|00001da0| 72 20 6b 65 79 62 6f 61 | 72 64 2e 20 20 49 66 20 |r keyboa|rd.  If |
|00001db0| 79 6f 75 20 64 6f 6e 27 | 74 20 68 61 76 65 20 61 |you don'|t have a|
|00001dc0| 0a 42 61 63 6b 53 70 61 | 63 65 20 6b 65 79 73 79 |.BackSpa|ce keysy|
|00001dd0| 6d 2c 20 74 68 65 20 64 | 65 6c 65 74 65 20 6b 65 |m, the d|elete ke|
|00001de0| 79 20 73 68 6f 75 6c 64 | 20 61 6c 77 61 79 73 20 |y should| always |
|00001df0| 64 65 6c 65 74 65 20 6f | 6e 65 20 63 68 61 72 61 |delete o|ne chara|
|00001e00| 63 74 65 72 0a 62 61 63 | 6b 77 61 72 64 73 2e 1f |cter.bac|kwards..|
|00001e10| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 62 61 63 6b |.(defali|as 'back|
|00001e20| 77 61 72 64 2d 6f 72 2d | 66 6f 72 77 61 72 64 2d |ward-or-|forward-|
|00001e30| 64 65 6c 65 74 65 2d 63 | 68 61 72 20 23 5b 28 61 |delete-c|har #[(a|
|00001e40| 72 67 29 20 22 08 ab 90 | c1 20 c2 61 ac 85 c3 c4 |rg) "...|. .a....|
|00001e50| 21 ab 85 c5 0e 06 21 87 | 0e 07 0e 06 21 87 22 20 |!.....!.|....!." |
|00001e60| 5b 64 65 6c 65 74 65 2d | 6b 65 79 2d 64 65 6c 65 |[delete-|key-dele|
|00001e70| 74 65 73 2d 66 6f 72 77 | 61 72 64 20 64 65 76 69 |tes-forw|ard devi|
|00001e80| 63 65 2d 74 79 70 65 20 | 74 74 79 20 78 2d 6b 65 |ce-type |tty x-ke|
|00001e90| 79 73 79 6d 2d 6f 6e 2d | 6b 65 79 62 6f 61 72 64 |ysym-on-|keyboard|
|00001ea0| 2d 73 61 6e 73 2d 6d 6f | 64 69 66 69 65 72 73 2d |-sans-mo|difiers-|
|00001eb0| 70 20 62 61 63 6b 73 70 | 61 63 65 20 64 65 6c 65 |p backsp|ace dele|
|00001ec0| 74 65 2d 63 68 61 72 20 | 61 72 67 20 62 61 63 6b |te-char |arg back|
|00001ed0| 77 61 72 64 2d 64 65 6c | 65 74 65 2d 66 75 6e 63 |ward-del|ete-func|
|00001ee0| 74 69 6f 6e 5d 20 32 20 | 28 23 24 20 2e 20 37 34 |tion] 2 |(#$ . 74|
|00001ef0| 31 32 29 20 22 2a 70 22 | 5d 29 0a 23 40 32 37 35 |12) "*p"|]).#@275|
|00001f00| 20 44 65 6c 65 74 65 20 | 65 69 74 68 65 72 20 6f | Delete |either o|
|00001f10| 6e 65 20 77 6f 72 64 20 | 62 61 63 6b 77 61 72 64 |ne word |backward|
|00001f20| 73 20 6f 72 20 6f 6e 65 | 20 77 6f 72 64 20 66 6f |s or one| word fo|
|00001f30| 72 77 61 72 64 73 2e 0a | 43 6f 6e 74 72 6f 6c 6c |rwards..|Controll|
|00001f40| 65 64 20 62 79 20 74 68 | 65 20 73 74 61 74 65 20 |ed by th|e state |
|00001f50| 6f 66 20 60 64 65 6c 65 | 74 65 2d 6b 65 79 2d 64 |of `dele|te-key-d|
|00001f60| 65 6c 65 74 65 73 2d 66 | 6f 72 77 61 72 64 27 20 |eletes-f|orward' |
|00001f70| 61 6e 64 20 77 68 65 74 | 68 65 72 20 74 68 65 0a |and whet|her the.|
|00001f80| 42 61 63 6b 53 70 61 63 | 65 20 6b 65 79 73 79 6d |BackSpac|e keysym|
|00001f90| 20 65 76 65 6e 20 65 78 | 69 73 74 73 20 6f 6e 20 | even ex|ists on |
|00001fa0| 79 6f 75 72 20 6b 65 79 | 62 6f 61 72 64 2e 20 20 |your key|board.  |
|00001fb0| 49 66 20 79 6f 75 20 64 | 6f 6e 27 74 20 68 61 76 |If you d|on't hav|
|00001fc0| 65 20 61 0a 42 61 63 6b | 53 70 61 63 65 20 6b 65 |e a.Back|Space ke|
|00001fd0| 79 73 79 6d 2c 20 74 68 | 65 20 64 65 6c 65 74 65 |ysym, th|e delete|
|00001fe0| 20 6b 65 79 20 73 68 6f | 75 6c 64 20 61 6c 77 61 | key sho|uld alwa|
|00001ff0| 79 73 20 64 65 6c 65 74 | 65 20 6f 6e 65 20 63 68 |ys delet|e one ch|
|00002000| 61 72 61 63 74 65 72 0a | 62 61 63 6b 77 61 72 64 |aracter.|backward|
|00002010| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 62 |s...(def|alias 'b|
|00002020| 61 63 6b 77 61 72 64 2d | 6f 72 2d 66 6f 72 77 61 |ackward-|or-forwa|
|00002030| 72 64 2d 6b 69 6c 6c 2d | 77 6f 72 64 20 23 5b 28 |rd-kill-|word #[(|
|00002040| 61 72 67 29 20 22 08 ab | 90 c1 20 c2 61 ac 85 c3 |arg) "..|.. .a...|
|00002050| c4 21 ab 85 c5 0e 06 21 | 87 c7 0e 06 21 87 22 20 |.!.....!|....!." |
|00002060| 5b 64 65 6c 65 74 65 2d | 6b 65 79 2d 64 65 6c 65 |[delete-|key-dele|
|00002070| 74 65 73 2d 66 6f 72 77 | 61 72 64 20 64 65 76 69 |tes-forw|ard devi|
|00002080| 63 65 2d 74 79 70 65 20 | 74 74 79 20 78 2d 6b 65 |ce-type |tty x-ke|
|00002090| 79 73 79 6d 2d 6f 6e 2d | 6b 65 79 62 6f 61 72 64 |ysym-on-|keyboard|
|000020a0| 2d 73 61 6e 73 2d 6d 6f | 64 69 66 69 65 72 73 2d |-sans-mo|difiers-|
|000020b0| 70 20 62 61 63 6b 73 70 | 61 63 65 20 6b 69 6c 6c |p backsp|ace kill|
|000020c0| 2d 77 6f 72 64 20 61 72 | 67 20 62 61 63 6b 77 61 |-word ar|g backwa|
|000020d0| 72 64 2d 6b 69 6c 6c 2d | 77 6f 72 64 5d 20 32 20 |rd-kill-|word] 2 |
|000020e0| 28 23 24 20 2e 20 37 39 | 33 37 29 20 22 2a 70 22 |(#$ . 79|37) "*p"|
|000020f0| 5d 29 0a 23 40 32 38 33 | 20 44 65 6c 65 74 65 20 |]).#@283| Delete |
|00002100| 65 69 74 68 65 72 20 6f | 6e 65 20 73 65 6e 74 65 |either o|ne sente|
|00002110| 6e 63 65 20 62 61 63 6b | 77 61 72 64 73 20 6f 72 |nce back|wards or|
|00002120| 20 6f 6e 65 20 73 65 6e | 74 65 6e 63 65 20 66 6f | one sen|tence fo|
|00002130| 72 77 61 72 64 73 2e 0a | 43 6f 6e 74 72 6f 6c 6c |rwards..|Controll|
|00002140| 65 64 20 62 79 20 74 68 | 65 20 73 74 61 74 65 20 |ed by th|e state |
|00002150| 6f 66 20 60 64 65 6c 65 | 74 65 2d 6b 65 79 2d 64 |of `dele|te-key-d|
|00002160| 65 6c 65 74 65 73 2d 66 | 6f 72 77 61 72 64 27 20 |eletes-f|orward' |
|00002170| 61 6e 64 20 77 68 65 74 | 68 65 72 20 74 68 65 0a |and whet|her the.|
|00002180| 42 61 63 6b 53 70 61 63 | 65 20 6b 65 79 73 79 6d |BackSpac|e keysym|
|00002190| 20 65 76 65 6e 20 65 78 | 69 73 74 73 20 6f 6e 20 | even ex|ists on |
|000021a0| 79 6f 75 72 20 6b 65 79 | 62 6f 61 72 64 2e 20 20 |your key|board.  |
|000021b0| 49 66 20 79 6f 75 20 64 | 6f 6e 27 74 20 68 61 76 |If you d|on't hav|
|000021c0| 65 20 61 0a 42 61 63 6b | 53 70 61 63 65 20 6b 65 |e a.Back|Space ke|
|000021d0| 79 73 79 6d 2c 20 74 68 | 65 20 64 65 6c 65 74 65 |ysym, th|e delete|
|000021e0| 20 6b 65 79 20 73 68 6f | 75 6c 64 20 61 6c 77 61 | key sho|uld alwa|
|000021f0| 79 73 20 64 65 6c 65 74 | 65 20 6f 6e 65 20 63 68 |ys delet|e one ch|
|00002200| 61 72 61 63 74 65 72 0a | 62 61 63 6b 77 61 72 64 |aracter.|backward|
|00002210| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 62 |s...(def|alias 'b|
|00002220| 61 63 6b 77 61 72 64 2d | 6f 72 2d 66 6f 72 77 61 |ackward-|or-forwa|
|00002230| 72 64 2d 6b 69 6c 6c 2d | 73 65 6e 74 65 6e 63 65 |rd-kill-|sentence|
|00002240| 20 23 5b 28 61 72 67 29 | 20 22 08 ab 90 c1 20 c2 | #[(arg)| ".... .|
|00002250| 61 ac 85 c3 c4 21 ab 85 | c5 0e 06 21 87 c7 c8 0e |a....!..|...!....|
|00002260| 06 21 21 87 22 20 5b 64 | 65 6c 65 74 65 2d 6b 65 |.!!." [d|elete-ke|
|00002270| 79 2d 64 65 6c 65 74 65 | 73 2d 66 6f 72 77 61 72 |y-delete|s-forwar|
|00002280| 64 20 64 65 76 69 63 65 | 2d 74 79 70 65 20 74 74 |d device|-type tt|
|00002290| 79 20 78 2d 6b 65 79 73 | 79 6d 2d 6f 6e 2d 6b 65 |y x-keys|ym-on-ke|
|000022a0| 79 62 6f 61 72 64 2d 73 | 61 6e 73 2d 6d 6f 64 69 |yboard-s|ans-modi|
|000022b0| 66 69 65 72 73 2d 70 20 | 62 61 63 6b 73 70 61 63 |fiers-p |backspac|
|000022c0| 65 20 6b 69 6c 6c 2d 73 | 65 6e 74 65 6e 63 65 20 |e kill-s|entence |
|000022d0| 61 72 67 20 62 61 63 6b | 77 61 72 64 2d 6b 69 6c |arg back|ward-kil|
|000022e0| 6c 2d 73 65 6e 74 65 6e | 63 65 20 70 72 65 66 69 |l-senten|ce prefi|
|000022f0| 78 2d 6e 75 6d 65 72 69 | 63 2d 76 61 6c 75 65 5d |x-numeri|c-value]|
|00002300| 20 33 20 28 23 24 20 2e | 20 38 34 34 31 29 20 22 | 3 (#$ .| 8441) "|
|00002310| 2a 50 22 5d 29 0a 23 40 | 32 37 37 20 44 65 6c 65 |*P"]).#@|277 Dele|
|00002320| 74 65 20 65 69 74 68 65 | 72 20 6f 6e 65 20 73 65 |te eithe|r one se|
|00002330| 78 70 72 20 62 61 63 6b | 77 61 72 64 73 20 6f 72 |xpr back|wards or|
|00002340| 20 6f 6e 65 20 73 65 78 | 70 72 20 66 6f 72 77 61 | one sex|pr forwa|
|00002350| 72 64 73 2e 0a 43 6f 6e | 74 72 6f 6c 6c 65 64 20 |rds..Con|trolled |
|00002360| 62 79 20 74 68 65 20 73 | 74 61 74 65 20 6f 66 20 |by the s|tate of |
|00002370| 60 64 65 6c 65 74 65 2d | 6b 65 79 2d 64 65 6c 65 |`delete-|key-dele|
|00002380| 74 65 73 2d 66 6f 72 77 | 61 72 64 27 20 61 6e 64 |tes-forw|ard' and|
|00002390| 20 77 68 65 74 68 65 72 | 20 74 68 65 0a 42 61 63 | whether| the.Bac|
|000023a0| 6b 53 70 61 63 65 20 6b | 65 79 73 79 6d 20 65 76 |kSpace k|eysym ev|
|000023b0| 65 6e 20 65 78 69 73 74 | 73 20 6f 6e 20 79 6f 75 |en exist|s on you|
|000023c0| 72 20 6b 65 79 62 6f 61 | 72 64 2e 20 20 49 66 20 |r keyboa|rd.  If |
|000023d0| 79 6f 75 20 64 6f 6e 27 | 74 20 68 61 76 65 20 61 |you don'|t have a|
|000023e0| 0a 42 61 63 6b 53 70 61 | 63 65 20 6b 65 79 73 79 |.BackSpa|ce keysy|
|000023f0| 6d 2c 20 74 68 65 20 64 | 65 6c 65 74 65 20 6b 65 |m, the d|elete ke|
|00002400| 79 20 73 68 6f 75 6c 64 | 20 61 6c 77 61 79 73 20 |y should| always |
|00002410| 64 65 6c 65 74 65 20 6f | 6e 65 20 63 68 61 72 61 |delete o|ne chara|
|00002420| 63 74 65 72 0a 62 61 63 | 6b 77 61 72 64 73 2e 1f |cter.bac|kwards..|
|00002430| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 62 61 63 6b |.(defali|as 'back|
|00002440| 77 61 72 64 2d 6f 72 2d | 66 6f 72 77 61 72 64 2d |ward-or-|forward-|
|00002450| 6b 69 6c 6c 2d 73 65 78 | 70 20 23 5b 28 61 72 67 |kill-sex|p #[(arg|
|00002460| 29 20 22 08 ab 90 c1 20 | c2 61 ac 85 c3 c4 21 ab |) ".... |.a....!.|
|00002470| 85 c5 0e 06 21 87 c7 0e | 06 21 87 22 20 5b 64 65 |....!...|.!." [de|
|00002480| 6c 65 74 65 2d 6b 65 79 | 2d 64 65 6c 65 74 65 73 |lete-key|-deletes|
|00002490| 2d 66 6f 72 77 61 72 64 | 20 64 65 76 69 63 65 2d |-forward| device-|
|000024a0| 74 79 70 65 20 74 74 79 | 20 78 2d 6b 65 79 73 79 |type tty| x-keysy|
|000024b0| 6d 2d 6f 6e 2d 6b 65 79 | 62 6f 61 72 64 2d 73 61 |m-on-key|board-sa|
|000024c0| 6e 73 2d 6d 6f 64 69 66 | 69 65 72 73 2d 70 20 62 |ns-modif|iers-p b|
|000024d0| 61 63 6b 73 70 61 63 65 | 20 6b 69 6c 6c 2d 73 65 |ackspace| kill-se|
|000024e0| 78 70 20 61 72 67 20 62 | 61 63 6b 77 61 72 64 2d |xp arg b|ackward-|
|000024f0| 6b 69 6c 6c 2d 73 65 78 | 70 5d 20 32 20 28 23 24 |kill-sex|p] 2 (#$|
|00002500| 20 2e 20 38 39 38 38 29 | 20 22 2a 70 22 5d 29 0a | . 8988)| "*p"]).|
|00002510| 23 40 31 31 32 20 4b 69 | 6c 6c 20 75 70 20 74 6f |#@112 Ki|ll up to|
|00002520| 20 61 6e 64 20 69 6e 63 | 6c 75 64 69 6e 67 20 41 | and inc|luding A|
|00002530| 52 47 27 74 68 20 6f 63 | 63 75 72 72 65 6e 63 65 |RG'th oc|currence|
|00002540| 20 6f 66 20 43 48 41 52 | 2e 0a 47 6f 65 73 20 62 | of CHAR|..Goes b|
|00002550| 61 63 6b 77 61 72 64 20 | 69 66 20 41 52 47 20 69 |ackward |if ARG i|
|00002560| 73 20 6e 65 67 61 74 69 | 76 65 3b 20 65 72 72 6f |s negati|ve; erro|
|00002570| 72 20 69 66 20 43 48 41 | 52 20 6e 6f 74 20 66 6f |r if CHA|R not fo|
|00002580| 75 6e 64 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |und...(d|efalias |
|00002590| 27 7a 61 70 2d 74 6f 2d | 63 68 61 72 20 23 5b 28 |'zap-to-|char #[(|
|000025a0| 61 72 67 20 63 68 61 72 | 29 20 22 c0 60 c1 c2 0b |arg char|) ".`...|
|000025b0| 21 c4 89 0d 24 88 60 5c | 22 87 22 20 5b 6b 69 6c |!...$.`\|"." [kil|
|000025c0| 6c 2d 72 65 67 69 6f 6e | 20 73 65 61 72 63 68 2d |l-region| search-|
|000025d0| 66 6f 72 77 61 72 64 20 | 63 68 61 72 2d 74 6f 2d |forward |char-to-|
|000025e0| 73 74 72 69 6e 67 20 63 | 68 61 72 20 6e 69 6c 20 |string c|har nil |
|000025f0| 61 72 67 5d 20 37 20 28 | 23 24 20 2e 20 39 34 39 |arg] 7 (|#$ . 949|
|00002600| 34 29 20 22 2a 70 5c 6e | 63 5a 61 70 20 74 6f 20 |4) "*p\n|cZap to |
|00002610| 63 68 61 72 3a 20 22 5d | 29 0a 23 40 33 35 30 20 |char: "]|).#@350 |
|00002620| 4d 6f 76 65 20 70 6f 69 | 6e 74 20 74 6f 20 74 68 |Move poi|nt to th|
|00002630| 65 20 62 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 74 |e beginn|ing of t|
|00002640| 68 65 20 62 75 66 66 65 | 72 3b 20 6c 65 61 76 65 |he buffe|r; leave|
|00002650| 20 6d 61 72 6b 20 61 74 | 20 70 72 65 76 69 6f 75 | mark at| previou|
|00002660| 73 20 70 6f 73 69 74 69 | 6f 6e 2e 0a 57 69 74 68 |s positi|on..With|
|00002670| 20 61 72 67 20 4e 2c 20 | 70 75 74 20 70 6f 69 6e | arg N, |put poin|
|00002680| 74 20 4e 2f 31 30 20 6f | 66 20 74 68 65 20 77 61 |t N/10 o|f the wa|
|00002690| 79 20 66 72 6f 6d 20 74 | 68 65 20 62 65 67 69 6e |y from t|he begin|
|000026a0| 6e 69 6e 67 2e 0a 0a 49 | 66 20 74 68 65 20 62 75 |ning...I|f the bu|
|000026b0| 66 66 65 72 20 69 73 20 | 6e 61 72 72 6f 77 65 64 |ffer is |narrowed|
|000026c0| 2c 20 74 68 69 73 20 63 | 6f 6d 6d 61 6e 64 20 75 |, this c|ommand u|
|000026d0| 73 65 73 20 74 68 65 20 | 62 65 67 69 6e 6e 69 6e |ses the |beginnin|
|000026e0| 67 20 61 6e 64 20 73 69 | 7a 65 0a 6f 66 20 74 68 |g and si|ze.of th|
|000026f0| 65 20 61 63 63 65 73 73 | 69 62 6c 65 20 70 61 72 |e access|ible par|
|00002700| 74 20 6f 66 20 74 68 65 | 20 62 75 66 66 65 72 2e |t of the| buffer.|
|00002710| 0a 0a 44 6f 6e 27 74 20 | 75 73 65 20 74 68 69 73 |..Don't |use this|
|00002720| 20 63 6f 6d 6d 61 6e 64 | 20 69 6e 20 4c 69 73 70 | command| in Lisp|
|00002730| 20 70 72 6f 67 72 61 6d | 73 21 0a 28 67 6f 74 6f | program|s!.(goto|
|00002740| 2d 63 68 61 72 20 28 70 | 6f 69 6e 74 2d 6d 69 6e |-char (p|oint-min|
|00002750| 29 29 20 69 73 20 66 61 | 73 74 65 72 20 61 6e 64 |)) is fa|ster and|
|00002760| 20 61 76 6f 69 64 73 20 | 63 6c 6f 62 62 65 72 69 | avoids |clobberi|
|00002770| 6e 67 20 74 68 65 20 6d | 61 72 6b 2e 1f 0a 28 64 |ng the m|ark...(d|
|00002780| 65 66 61 6c 69 61 73 20 | 27 62 65 67 69 6e 6e 69 |efalias |'beginni|
|00002790| 6e 67 2d 6f 66 2d 62 75 | 66 66 65 72 20 23 5b 28 |ng-of-bu|ffer #[(|
|000027a0| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 29 20 22 |&optiona|l arg) "|
|000027b0| c0 20 88 64 65 5a 19 5c | 6e ab 9b 65 09 c3 56 ab |. .deZ.\|n..e..V.|
|000027c0| 89 c4 5c 6e 21 09 c5 a5 | 5f aa 89 09 c4 5c 6e 21 |..\n!...|_....\n!|
|000027d0| 5f c5 5c 5c c5 a5 5c 5c | aa 81 65 62 88 29 5c 6e |_.\\..\\|..eb.)\n|
|000027e0| ad 82 c6 79 87 22 20 5b | 70 75 73 68 2d 6d 61 72 |...y." [|push-mar|
|000027f0| 6b 20 73 69 7a 65 20 61 | 72 67 20 31 30 30 30 30 |k size a|rg 10000|
|00002800| 20 70 72 65 66 69 78 2d | 6e 75 6d 65 72 69 63 2d | prefix-|numeric-|
|00002810| 76 61 6c 75 65 20 31 30 | 20 31 5d 20 34 20 28 23 |value 10| 1] 4 (#|
|00002820| 24 20 2e 20 39 37 36 30 | 29 20 22 5f 50 22 5d 29 |$ . 9760|) "_P"])|
|00002830| 0a 23 40 33 33 38 20 4d | 6f 76 65 20 70 6f 69 6e |.#@338 M|ove poin|
|00002840| 74 20 74 6f 20 74 68 65 | 20 65 6e 64 20 6f 66 20 |t to the| end of |
|00002850| 74 68 65 20 62 75 66 66 | 65 72 3b 20 6c 65 61 76 |the buff|er; leav|
|00002860| 65 20 6d 61 72 6b 20 61 | 74 20 70 72 65 76 69 6f |e mark a|t previo|
|00002870| 75 73 20 70 6f 73 69 74 | 69 6f 6e 2e 0a 57 69 74 |us posit|ion..Wit|
|00002880| 68 20 61 72 67 20 4e 2c | 20 70 75 74 20 70 6f 69 |h arg N,| put poi|
|00002890| 6e 74 20 4e 2f 31 30 20 | 6f 66 20 74 68 65 20 77 |nt N/10 |of the w|
|000028a0| 61 79 20 66 72 6f 6d 20 | 74 68 65 20 65 6e 64 2e |ay from |the end.|
|000028b0| 0a 0a 49 66 20 74 68 65 | 20 62 75 66 66 65 72 20 |..If the| buffer |
|000028c0| 69 73 20 6e 61 72 72 6f | 77 65 64 2c 20 74 68 69 |is narro|wed, thi|
|000028d0| 73 20 63 6f 6d 6d 61 6e | 64 20 75 73 65 73 20 74 |s comman|d uses t|
|000028e0| 68 65 20 62 65 67 69 6e | 6e 69 6e 67 20 61 6e 64 |he begin|ning and|
|000028f0| 20 73 69 7a 65 0a 6f 66 | 20 74 68 65 20 61 63 63 | size.of| the acc|
|00002900| 65 73 73 69 62 6c 65 20 | 70 61 72 74 20 6f 66 20 |essible |part of |
|00002910| 74 68 65 20 62 75 66 66 | 65 72 2e 0a 0a 44 6f 6e |the buff|er...Don|
|00002920| 27 74 20 75 73 65 20 74 | 68 69 73 20 63 6f 6d 6d |'t use t|his comm|
|00002930| 61 6e 64 20 69 6e 20 4c | 69 73 70 20 70 72 6f 67 |and in L|isp prog|
|00002940| 72 61 6d 73 21 0a 28 67 | 6f 74 6f 2d 63 68 61 72 |rams!.(g|oto-char|
|00002950| 20 28 70 6f 69 6e 74 2d | 6d 61 78 29 29 20 69 73 | (point-|max)) is|
|00002960| 20 66 61 73 74 65 72 20 | 61 6e 64 20 61 76 6f 69 | faster |and avoi|
|00002970| 64 73 20 63 6c 6f 62 62 | 65 72 69 6e 67 20 74 68 |ds clobb|ering th|
|00002980| 65 20 6d 61 72 6b 2e 1f | 0a 28 64 65 66 61 6c 69 |e mark..|.(defali|
|00002990| 61 73 20 27 65 6e 64 2d | 6f 66 2d 62 75 66 66 65 |as 'end-|of-buffe|
|000029a0| 72 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |r #[(&op|tional a|
|000029b0| 72 67 29 20 22 c0 20 88 | c1 64 21 3f 64 65 5a 1a |rg) ". .|.d!?deZ.|
|000029c0| 1b 0c ab 99 64 5c 6e c5 | 56 ab 89 c6 0c 21 5c 6e |....d\n.|V....!\n|
|000029d0| c7 a5 5f aa 87 5c 6e c6 | 0c 21 5f c7 a5 5a aa 81 |.._..\n.|.!_..Z..|
|000029e0| 64 62 88 0c ab 84 c8 79 | aa 86 0b ad 83 c9 ca 21 |db.....y|.......!|
|000029f0| 2a 87 22 20 5b 70 75 73 | 68 2d 6d 61 72 6b 20 70 |*." [pus|h-mark p|
|00002a00| 6f 73 2d 76 69 73 69 62 | 6c 65 2d 69 6e 2d 77 69 |os-visib|le-in-wi|
|00002a10| 6e 64 6f 77 2d 70 20 73 | 69 7a 65 20 73 63 72 6f |ndow-p s|ize scro|
|00002a20| 6c 6c 2d 74 6f 2d 65 6e | 64 20 61 72 67 20 31 30 |ll-to-en|d arg 10|
|00002a30| 30 30 30 20 70 72 65 66 | 69 78 2d 6e 75 6d 65 72 |000 pref|ix-numer|
|00002a40| 69 63 2d 76 61 6c 75 65 | 20 31 30 20 31 20 72 65 |ic-value| 10 1 re|
|00002a50| 63 65 6e 74 65 72 20 2d | 33 5d 20 34 20 28 23 24 |center -|3] 4 (#$|
|00002a60| 20 2e 20 31 30 32 39 35 | 29 20 22 5f 50 22 5d 29 | . 10295|) "_P"])|
|00002a70| 0a 23 40 31 33 33 20 50 | 75 73 68 20 61 20 6d 61 |.#@133 P|ush a ma|
|00002a80| 72 6b 20 61 74 20 74 68 | 65 20 62 65 67 69 6e 6e |rk at th|e beginn|
|00002a90| 69 6e 67 20 6f 66 20 74 | 68 65 20 62 75 66 66 65 |ing of t|he buffe|
|00002aa0| 72 3b 20 6c 65 61 76 65 | 20 70 6f 69 6e 74 20 77 |r; leave| point w|
|00002ab0| 68 65 72 65 20 69 74 20 | 69 73 2e 0a 57 69 74 68 |here it |is..With|
|00002ac0| 20 61 72 67 20 4e 2c 20 | 70 75 73 68 20 6d 61 72 | arg N, |push mar|
|00002ad0| 6b 20 4e 2f 31 30 20 6f | 66 20 74 68 65 20 77 61 |k N/10 o|f the wa|
|00002ae0| 79 20 66 72 6f 6d 20 74 | 68 65 20 74 72 75 65 20 |y from t|he true |
|00002af0| 62 65 67 69 6e 6e 69 6e | 67 2e 1f 0a 28 64 65 66 |beginnin|g...(def|
|00002b00| 61 6c 69 61 73 20 27 6d | 61 72 6b 2d 62 65 67 69 |alias 'm|ark-begi|
|00002b10| 6e 6e 69 6e 67 2d 6f 66 | 2d 62 75 66 66 65 72 20 |nning-of|-buffer |
|00002b20| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |#[(&opti|onal arg|
|00002b30| 29 20 22 c0 09 ab 9c c2 | 20 c3 56 ab 8a c4 09 21 |) ".....| .V....!|
|00002b40| c2 20 c5 a5 5f aa 8d c2 | 20 c4 09 21 5f c5 5c 5c |. .._...| ..!_.\\|
|00002b50| c5 a5 aa 81 65 c6 c7 23 | 87 22 20 5b 70 75 73 68 |....e..#|." [push|
|00002b60| 2d 6d 61 72 6b 20 61 72 | 67 20 62 75 66 66 65 72 |-mark ar|g buffer|
|00002b70| 2d 73 69 7a 65 20 31 30 | 30 30 30 20 70 72 65 66 |-size 10|000 pref|
|00002b80| 69 78 2d 6e 75 6d 65 72 | 69 63 2d 76 61 6c 75 65 |ix-numer|ic-value|
|00002b90| 20 31 30 20 6e 69 6c 20 | 74 5d 20 34 20 28 23 24 | 10 nil |t] 4 (#$|
|00002ba0| 20 2e 20 31 30 38 37 31 | 29 20 22 50 22 5d 29 0a | . 10871|) "P"]).|
|00002bb0| 28 64 65 66 69 6e 65 2d | 66 75 6e 63 74 69 6f 6e |(define-|function|
|00002bc0| 20 27 6d 61 72 6b 2d 62 | 6f 62 20 27 6d 61 72 6b | 'mark-b|ob 'mark|
|00002bd0| 2d 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 62 75 |-beginni|ng-of-bu|
|00002be0| 66 66 65 72 29 0a 23 40 | 31 32 31 20 50 75 73 68 |ffer).#@|121 Push|
|00002bf0| 20 61 20 6d 61 72 6b 20 | 61 74 20 74 68 65 20 65 | a mark |at the e|
|00002c00| 6e 64 20 6f 66 20 74 68 | 65 20 62 75 66 66 65 72 |nd of th|e buffer|
|00002c10| 3b 20 6c 65 61 76 65 20 | 70 6f 69 6e 74 20 77 68 |; leave |point wh|
|00002c20| 65 72 65 20 69 74 20 69 | 73 2e 0a 57 69 74 68 20 |ere it i|s..With |
|00002c30| 61 72 67 20 4e 2c 20 70 | 75 73 68 20 6d 61 72 6b |arg N, p|ush mark|
|00002c40| 20 4e 2f 31 30 20 6f 66 | 20 74 68 65 20 77 61 79 | N/10 of| the way|
|00002c50| 20 66 72 6f 6d 20 74 68 | 65 20 74 72 75 65 20 65 | from th|e true e|
|00002c60| 6e 64 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nd...(de|falias '|
|00002c70| 6d 61 72 6b 2d 65 6e 64 | 2d 6f 66 2d 62 75 66 66 |mark-end|-of-buff|
|00002c80| 65 72 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |er #[(&o|ptional |
|00002c90| 61 72 67 29 20 22 c0 09 | ab 9e c2 20 54 c2 20 c3 |arg) "..|... T. .|
|00002ca0| 56 ab 8a c4 09 21 c2 20 | c5 a5 5f aa 88 c2 20 c4 |V....!. |.._... .|
|00002cb0| 09 21 5f c5 a5 5a aa 81 | 64 c6 c7 23 87 22 20 5b |.!_..Z..|d..#." [|
|00002cc0| 70 75 73 68 2d 6d 61 72 | 6b 20 61 72 67 20 62 75 |push-mar|k arg bu|
|00002cd0| 66 66 65 72 2d 73 69 7a | 65 20 31 30 30 30 30 20 |ffer-siz|e 10000 |
|00002ce0| 70 72 65 66 69 78 2d 6e | 75 6d 65 72 69 63 2d 76 |prefix-n|umeric-v|
|00002cf0| 61 6c 75 65 20 31 30 20 | 6e 69 6c 20 74 5d 20 35 |alue 10 |nil t] 5|
|00002d00| 20 28 23 24 20 2e 20 31 | 31 32 34 34 29 20 22 50 | (#$ . 1|1244) "P|
|00002d10| 22 5d 29 0a 28 64 65 66 | 69 6e 65 2d 66 75 6e 63 |"]).(def|ine-func|
|00002d20| 74 69 6f 6e 20 27 6d 61 | 72 6b 2d 65 6f 62 20 27 |tion 'ma|rk-eob '|
|00002d30| 6d 61 72 6b 2d 65 6e 64 | 2d 6f 66 2d 62 75 66 66 |mark-end|-of-buff|
|00002d40| 65 72 29 0a 23 40 32 30 | 35 20 50 75 74 20 70 6f |er).#@20|5 Put po|
|00002d50| 69 6e 74 20 61 74 20 62 | 65 67 69 6e 6e 69 6e 67 |int at b|eginning|
|00002d60| 20 61 6e 64 20 6d 61 72 | 6b 20 61 74 20 65 6e 64 | and mar|k at end|
|00002d70| 20 6f 66 20 62 75 66 66 | 65 72 2e 0a 59 6f 75 20 | of buff|er..You |
|00002d80| 70 72 6f 62 61 62 6c 79 | 20 73 68 6f 75 6c 64 20 |probably| should |
|00002d90| 6e 6f 74 20 75 73 65 20 | 74 68 69 73 20 66 75 6e |not use |this fun|
|00002da0| 63 74 69 6f 6e 20 69 6e | 20 4c 69 73 70 20 70 72 |ction in| Lisp pr|
|00002db0| 6f 67 72 61 6d 73 3b 0a | 69 74 20 69 73 20 75 73 |ograms;.|it is us|
|00002dc0| 75 61 6c 6c 79 20 61 20 | 6d 69 73 74 61 6b 65 20 |ually a |mistake |
|00002dd0| 66 6f 72 20 61 20 4c 69 | 73 70 20 66 75 6e 63 74 |for a Li|sp funct|
|00002de0| 69 6f 6e 20 74 6f 20 75 | 73 65 20 61 6e 79 20 73 |ion to u|se any s|
|00002df0| 75 62 72 6f 75 74 69 6e | 65 0a 74 68 61 74 20 75 |ubroutin|e.that u|
|00002e00| 73 65 73 20 6f 72 20 73 | 65 74 73 20 74 68 65 20 |ses or s|ets the |
|00002e10| 6d 61 72 6b 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |mark...(|defalias|
|00002e20| 20 27 6d 61 72 6b 2d 77 | 68 6f 6c 65 2d 62 75 66 | 'mark-w|hole-buf|
|00002e30| 66 65 72 20 23 5b 6e 69 | 6c 20 22 c0 60 21 88 c0 |fer #[ni|l ".`!..|
|00002e40| 64 c1 c2 23 88 65 62 87 | 22 20 5b 70 75 73 68 2d |d..#.eb.|" [push-|
|00002e50| 6d 61 72 6b 20 6e 69 6c | 20 74 5d 20 34 20 28 23 |mark nil| t] 4 (#|
|00002e60| 24 20 2e 20 31 31 35 39 | 34 29 20 6e 69 6c 5d 29 |$ . 1159|4) nil])|
|00002e70| 0a 23 40 31 37 32 20 45 | 76 61 6c 75 61 74 65 20 |.#@172 E|valuate |
|00002e80| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|00002e90| 65 72 20 61 73 20 4c 69 | 73 70 20 63 6f 64 65 2e |er as Li|sp code.|
|00002ea0| 0a 50 72 6f 67 72 61 6d | 73 20 63 61 6e 20 70 61 |.Program|s can pa|
|00002eb0| 73 73 20 61 72 67 75 6d | 65 6e 74 20 50 52 49 4e |ss argum|ent PRIN|
|00002ec0| 54 46 4c 41 47 20 77 68 | 69 63 68 20 63 6f 6e 74 |TFLAG wh|ich cont|
|00002ed0| 72 6f 6c 73 20 70 72 69 | 6e 74 69 6e 67 20 6f 66 |rols pri|nting of|
|00002ee0| 20 6f 75 74 70 75 74 3a | 0a 6e 69 6c 20 6d 65 61 | output:|.nil mea|
|00002ef0| 6e 73 20 64 69 73 63 61 | 72 64 20 69 74 3b 20 61 |ns disca|rd it; a|
|00002f00| 6e 79 74 68 69 6e 67 20 | 65 6c 73 65 20 69 73 20 |nything |else is |
|00002f10| 73 74 72 65 61 6d 20 66 | 6f 72 20 70 72 69 6e 74 |stream f|or print|
|00002f20| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 76 |...(defa|lias 'ev|
|00002f30| 61 6c 2d 63 75 72 72 65 | 6e 74 2d 62 75 66 66 65 |al-curre|nt-buffe|
|00002f40| 72 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 70 |r #[(&op|tional p|
|00002f50| 72 69 6e 74 66 6c 61 67 | 29 20 22 c0 70 09 5c 22 |rintflag|) ".p.\"|
|00002f60| 87 22 20 5b 65 76 61 6c | 2d 62 75 66 66 65 72 20 |." [eval|-buffer |
|00002f70| 70 72 69 6e 74 66 6c 61 | 67 5d 20 33 20 28 23 24 |printfla|g] 3 (#$|
|00002f80| 20 2e 20 31 31 38 39 35 | 29 20 6e 69 6c 5d 29 0a | . 11895|) nil]).|
|00002f90| 28 64 65 66 61 6c 69 61 | 73 20 27 63 6f 75 6e 74 |(defalia|s 'count|
|00002fa0| 2d 77 6f 72 64 73 2d 62 | 75 66 66 65 72 20 23 5b |-words-b|uffer #[|
|00002fb0| 28 62 29 20 22 8a 08 ae | 81 70 89 19 71 88 c2 c3 |(b) "...|.p..q...|
|00002fc0| c4 65 64 5c 22 5c 22 2a | 87 22 20 5b 62 20 62 75 |.ed\"\"*|." [b bu|
|00002fd0| 66 20 6d 65 73 73 61 67 | 65 20 22 42 75 66 66 65 |f messag|e "Buffe|
|00002fe0| 72 20 68 61 73 20 25 64 | 20 77 6f 72 64 73 22 20 |r has %d| words" |
|00002ff0| 63 6f 75 6e 74 2d 77 6f | 72 64 73 2d 72 65 67 69 |count-wo|rds-regi|
|00003000| 6f 6e 5d 20 36 20 6e 69 | 6c 20 22 62 22 5d 29 0a |on] 6 ni|l "b"]).|
|00003010| 28 64 65 66 61 6c 69 61 | 73 20 27 63 6f 75 6e 74 |(defalia|s 'count|
|00003020| 2d 77 6f 72 64 73 2d 72 | 65 67 69 6f 6e 20 23 5b |-words-r|egion #[|
|00003030| 28 73 74 61 72 74 20 65 | 6e 64 29 20 22 8a c0 19 |(start e|nd) "...|
|00003040| 5c 6e 62 88 60 0b 57 ab | 89 c4 76 ab 77 09 54 11 |\nb.`.W.|..v.w.T.|
|00003050| aa 72 c5 c6 09 5c 22 88 | 09 2a 87 22 20 5b 30 20 |.r...\".|.*." [0 |
|00003060| 6e 20 73 74 61 72 74 20 | 65 6e 64 20 31 20 6d 65 |n start |end 1 me|
|00003070| 73 73 61 67 65 20 22 52 | 65 67 69 6f 6e 20 68 61 |ssage "R|egion ha|
|00003080| 73 20 25 64 20 77 6f 72 | 64 73 22 5d 20 33 20 6e |s %d wor|ds"] 3 n|
|00003090| 69 6c 20 22 72 22 5d 29 | 0a 23 40 35 33 20 50 72 |il "r"])|.#@53 Pr|
|000030a0| 69 6e 74 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |int numb|er of li|
|000030b0| 6e 65 73 20 61 6e 64 20 | 63 68 61 72 61 63 74 65 |nes and |characte|
|000030c0| 72 73 20 69 6e 20 74 68 | 65 20 72 65 67 69 6f 6e |rs in th|e region|
|000030d0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 6f |...(defa|lias 'co|
|000030e0| 75 6e 74 2d 6c 69 6e 65 | 73 2d 72 65 67 69 6f 6e |unt-line|s-region|
|000030f0| 20 23 5b 28 73 74 61 72 | 74 20 65 6e 64 29 20 22 | #[(star|t end) "|
|00003100| c0 c1 c2 0b 0c 5c 22 0c | 0b 5a 23 87 22 20 5b 6d |.....\".|.Z#." [m|
|00003110| 65 73 73 61 67 65 20 22 | 52 65 67 69 6f 6e 20 68 |essage "|Region h|
|00003120| 61 73 20 25 64 20 6c 69 | 6e 65 73 2c 20 25 64 20 |as %d li|nes, %d |
|00003130| 63 68 61 72 61 63 74 65 | 72 73 22 20 63 6f 75 6e |characte|rs" coun|
|00003140| 74 2d 6c 69 6e 65 73 20 | 73 74 61 72 74 20 65 6e |t-lines |start en|
|00003150| 64 5d 20 35 20 28 23 24 | 20 2e 20 31 32 34 34 36 |d] 5 (#$| . 12446|
|00003160| 29 20 22 5f 72 22 5d 29 | 0a 23 40 36 33 20 50 72 |) "_r"])|.#@63 Pr|
|00003170| 69 6e 74 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |int numb|er of li|
|00003180| 6e 65 73 20 61 6e 64 20 | 63 68 61 72 61 63 74 65 |nes and |characte|
|00003190| 72 73 20 69 6e 20 74 68 | 65 20 73 70 65 63 69 66 |rs in th|e specif|
|000031a0| 69 65 64 20 62 75 66 66 | 65 72 2e 1f 0a 28 64 65 |ied buff|er...(de|
|000031b0| 66 61 6c 69 61 73 20 27 | 63 6f 75 6e 74 2d 6c 69 |falias '|count-li|
|000031c0| 6e 65 73 2d 62 75 66 66 | 65 72 20 23 5b 28 62 29 |nes-buff|er #[(b)|
|000031d0| 20 22 8a 08 ae 81 70 c1 | 1a 89 1b 71 88 c4 65 64 | "....p.|...q..ed|
|000031e0| 5c 22 12 c5 c6 5c 6e 64 | 65 5a 23 88 5c 6e 2b 87 |\"...\nd|eZ#.\n+.|
|000031f0| 22 20 5b 62 20 6e 69 6c | 20 63 6e 74 20 62 75 66 |" [b nil| cnt buf|
|00003200| 20 63 6f 75 6e 74 2d 6c | 69 6e 65 73 20 6d 65 73 | count-l|ines mes|
|00003210| 73 61 67 65 20 22 42 75 | 66 66 65 72 20 68 61 73 |sage "Bu|ffer has|
|00003220| 20 25 64 20 6c 69 6e 65 | 73 2c 20 25 64 20 63 68 | %d line|s, %d ch|
|00003230| 61 72 61 63 74 65 72 73 | 22 5d 20 36 20 28 23 24 |aracters|"] 6 (#$|
|00003240| 20 2e 20 31 32 36 35 34 | 29 20 22 5f 62 22 5d 29 | . 12654|) "_b"])|
|00003250| 0a 23 40 37 33 20 50 72 | 69 6e 74 20 74 68 65 20 |.#@73 Pr|int the |
|00003260| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 20 6c |current |buffer l|
|00003270| 69 6e 65 20 6e 75 6d 62 | 65 72 20 61 6e 64 20 6e |ine numb|er and n|
|00003280| 61 72 72 6f 77 65 64 20 | 6c 69 6e 65 20 6e 75 6d |arrowed |line num|
|00003290| 62 65 72 20 6f 66 20 70 | 6f 69 6e 74 2e 1f 0a 28 |ber of p|oint...(|
|000032a0| 64 65 66 61 6c 69 61 73 | 20 27 77 68 61 74 2d 6c |defalias| 'what-l|
|000032b0| 69 6e 65 20 23 5b 6e 69 | 6c 20 22 60 c0 19 1a 8a |ine #[ni|l "`....|
|000032c0| 8c 65 62 88 7e 88 c3 79 | 88 60 11 5c 6e 62 88 c3 |.eb.~..y|.`.\nb..|
|000032d0| 79 88 09 c4 55 ac 8f c5 | c6 c7 c4 60 5c 22 54 c7 |y...U...|...`\"T.|
|000032e0| 09 60 5c 22 54 23 aa 88 | c5 c8 c7 c4 60 5c 22 54 |.`\"T#..|....`\"T|
|000032f0| 5c 22 2c 87 22 20 5b 6e | 69 6c 20 73 74 61 72 74 |\",." [n|il start|
|00003300| 20 6f 70 6f 69 6e 74 20 | 30 20 31 20 6d 65 73 73 | opoint |0 1 mess|
|00003310| 61 67 65 20 22 6c 69 6e | 65 20 25 64 20 28 6e 61 |age "lin|e %d (na|
|00003320| 72 72 6f 77 65 64 20 6c | 69 6e 65 20 25 64 29 22 |rrowed l|ine %d)"|
|00003330| 20 63 6f 75 6e 74 2d 6c | 69 6e 65 73 20 22 4c 69 | count-l|ines "Li|
|00003340| 6e 65 20 25 64 22 5d 20 | 36 20 28 23 24 20 2e 20 |ne %d"] |6 (#$ . |
|00003350| 31 32 38 38 36 29 20 22 | 5f 22 5d 29 0a 23 40 32 |12886) "|_"]).#@2|
|00003360| 30 34 20 52 65 74 75 72 | 6e 20 6e 75 6d 62 65 72 |04 Retur|n number|
|00003370| 20 6f 66 20 6c 69 6e 65 | 73 20 62 65 74 77 65 65 | of line|s betwee|
|00003380| 6e 20 53 54 41 52 54 20 | 61 6e 64 20 45 4e 44 2e |n START |and END.|
|00003390| 0a 54 68 69 73 20 69 73 | 20 75 73 75 61 6c 6c 79 |.This is| usually|
|000033a0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 6e | the num|ber of n|
|000033b0| 65 77 6c 69 6e 65 73 20 | 62 65 74 77 65 65 6e 20 |ewlines |between |
|000033c0| 74 68 65 6d 2c 0a 62 75 | 74 20 63 61 6e 20 62 65 |them,.bu|t can be|
|000033d0| 20 6f 6e 65 20 6d 6f 72 | 65 20 69 66 20 53 54 41 | one mor|e if STA|
|000033e0| 52 54 20 69 73 20 6e 6f | 74 20 65 71 75 61 6c 20 |RT is no|t equal |
|000033f0| 74 6f 20 45 4e 44 0a 61 | 6e 64 20 74 68 65 20 67 |to END.a|nd the g|
|00003400| 72 65 61 74 65 72 20 6f | 66 20 74 68 65 6d 20 69 |reater o|f them i|
|00003410| 73 20 6e 6f 74 20 61 74 | 20 74 68 65 20 73 74 61 |s not at| the sta|
|00003420| 72 74 20 6f 66 20 61 20 | 6c 69 6e 65 2e 1f 0a 28 |rt of a |line...(|
|00003430| 64 65 66 61 6c 69 61 73 | 20 27 63 6f 75 6e 74 2d |defalias| 'count-|
|00003440| 6c 69 6e 65 73 20 23 5b | 28 73 74 61 72 74 20 65 |lines #[|(start e|
|00003450| 6e 64 29 20 22 8a 8c 08 | 09 7d 88 65 62 88 5c 6e |nd) "...|.}.eb.\n|
|00003460| c3 61 ab bc c4 20 1d c6 | 8e c7 1e 08 c9 ca cb c3 |.a... ..|........|
|00003470| cc 24 ab 88 0e 08 cc 5c | 5c 16 08 aa 70 c9 ca cb |.$.....\|\...p...|
|00003480| c3 cd 24 ab 87 0e 08 54 | 16 08 aa 71 64 62 88 08 |..$....T|...qdb..|
|00003490| 09 55 ac 88 6e ac 85 0e | 08 54 aa 82 0e 08 2b aa |.U..n...|.T....+.|
|000034a0| 86 ce 20 ce 20 79 5a 2a | 87 22 20 5b 73 74 61 72 |.. . yZ*|." [star|
|000034b0| 74 20 65 6e 64 20 73 65 | 6c 65 63 74 69 76 65 2d |t end se|lective-|
|000034c0| 64 69 73 70 6c 61 79 20 | 74 20 6d 61 74 63 68 2d |display |t match-|
|000034d0| 64 61 74 61 20 6d 61 74 | 63 68 2d 64 61 74 61 20 |data mat|ch-data |
|000034e0| 28 28 73 74 6f 72 65 2d | 6d 61 74 63 68 2d 64 61 |((store-|match-da|
|000034f0| 74 61 20 6d 61 74 63 68 | 2d 64 61 74 61 29 29 20 |ta match|-data)) |
|00003500| 30 20 64 6f 6e 65 20 72 | 65 2d 73 65 61 72 63 68 |0 done r|e-search|
|00003510| 2d 66 6f 72 77 61 72 64 | 20 22 5b 5c 6e 0d 5d 22 |-forward| "[\n.]"|
|00003520| 20 6e 69 6c 20 34 30 20 | 31 20 62 75 66 66 65 72 | nil 40 |1 buffer|
|00003530| 2d 73 69 7a 65 5d 20 35 | 20 28 23 24 20 2e 20 31 |-size] 5| (#$ . 1|
|00003540| 33 31 35 35 29 5d 29 0a | 23 40 36 32 20 50 72 69 |3155)]).|#@62 Pri|
|00003550| 6e 74 20 69 6e 66 6f 20 | 6f 6e 20 63 75 72 73 6f |nt info |on curso|
|00003560| 72 20 70 6f 73 69 74 69 | 6f 6e 20 28 6f 6e 20 73 |r positi|on (on s|
|00003570| 63 72 65 65 6e 20 61 6e | 64 20 77 69 74 68 69 6e |creen an|d within|
|00003580| 20 62 75 66 66 65 72 29 | 2e 1f 0a 28 64 65 66 61 | buffer)|...(defa|
|00003590| 6c 69 61 73 20 27 77 68 | 61 74 2d 63 75 72 73 6f |lias 'wh|at-curso|
|000035a0| 72 2d 70 6f 73 69 74 69 | 6f 6e 20 23 5b 6e 69 6c |r-positi|on #[nil|
|000035b0| 20 22 60 66 18 65 19 64 | 1a 60 1b c4 20 89 1d c6 | "`f.e.d|.`.. ...|
|000035c0| 56 ab 8e 0d c7 a5 0b 53 | 5c 5c 0d c8 a5 c9 5d a5 |V......S|\\....].|
|000035d0| aa 8c 0d ca a5 0b 53 c8 | 5f 5c 5c 0d c9 5d a5 1e |......S.|_\\..]..|
|000035e0| 0b cc 20 cd 55 ab 83 ce | aa 85 cf d0 cc 20 5c 22 |.. .U...|..... \"|
|000035f0| 1e 11 69 1e 12 0b 5c 6e | 55 ab a9 09 c9 55 ab 86 |..i...\n|U....U..|
|00003600| 5c 6e 0d 54 55 ac 90 d3 | d4 0b 0d 0e 0b 09 5c 6e |\n.TU...|......\n|
|00003610| 0e 12 0e 11 26 08 aa c1 | d3 d5 0b 0d 0e 0b 0e 12 |....&...|........|
|00003620| 0e 11 26 06 aa b3 09 c9 | 55 ab 86 5c 6e 0d 54 55 |..&.....|U..\n.TU|
|00003630| ac 96 d3 d6 d7 08 21 08 | 89 89 0b 0d 0e 0b 09 5c |......!.|.......\|
|00003640| 6e 0e 12 0e 11 26 0c aa | 92 d3 d8 d7 08 21 08 89 |n....&..|.....!..|
|00003650| 89 0b 0d 0e 0b 0e 12 0e | 11 26 5c 6e 2e 08 87 22 |........|.&\n..."|
|00003660| 20 5b 63 68 61 72 20 62 | 65 67 20 65 6e 64 20 70 | [char b|eg end p|
|00003670| 6f 73 20 62 75 66 66 65 | 72 2d 73 69 7a 65 20 74 |os buffe|r-size t|
|00003680| 6f 74 61 6c 20 35 30 30 | 30 30 20 32 30 30 20 31 |otal 500|00 200 1|
|00003690| 30 30 20 31 20 32 20 70 | 65 72 63 65 6e 74 20 77 |00 1 2 p|ercent w|
|000036a0| 69 6e 64 6f 77 2d 68 73 | 63 72 6f 6c 6c 20 30 20 |indow-hs|croll 0 |
|000036b0| 22 22 20 66 6f 72 6d 61 | 74 20 22 20 48 73 63 72 |"" forma|t " Hscr|
|000036c0| 6f 6c 6c 3d 25 64 22 20 | 68 73 63 72 6f 6c 6c 20 |oll=%d" |hscroll |
|000036d0| 63 6f 6c 20 6d 65 73 73 | 61 67 65 20 22 70 6f 69 |col mess|age "poi|
|000036e0| 6e 74 3d 25 64 20 6f 66 | 20 25 64 28 25 64 25 25 |nt=%d of| %d(%d%%|
|000036f0| 29 20 3c 25 64 20 2d 20 | 25 64 3e 20 20 63 6f 6c |) <%d - |%d>  col|
|00003700| 75 6d 6e 20 25 64 20 25 | 73 22 20 22 70 6f 69 6e |umn %d %|s" "poin|
|00003710| 74 3d 25 64 20 6f 66 20 | 25 64 28 25 64 25 25 29 |t=%d of |%d(%d%%)|
|00003720| 20 20 63 6f 6c 75 6d 6e | 20 25 64 20 25 73 22 20 |  column| %d %s" |
|00003730| 22 43 68 61 72 3a 20 25 | 73 20 28 30 25 6f 2c 20 |"Char: %|s (0%o, |
|00003740| 25 64 2c 20 30 78 25 78 | 29 20 20 70 6f 69 6e 74 |%d, 0x%x|)  point|
|00003750| 3d 25 64 20 6f 66 20 25 | 64 28 25 64 25 25 29 20 |=%d of %|d(%d%%) |
|00003760| 3c 25 64 20 2d 20 25 64 | 3e 20 20 63 6f 6c 75 6d |<%d - %d|>  colum|
|00003770| 6e 20 25 64 20 25 73 22 | 20 74 65 78 74 2d 63 68 |n %d %s"| text-ch|
|00003780| 61 72 2d 64 65 73 63 72 | 69 70 74 69 6f 6e 20 22 |ar-descr|iption "|
|00003790| 43 68 61 72 3a 20 25 73 | 20 28 30 25 6f 2c 20 25 |Char: %s| (0%o, %|
|000037a0| 64 2c 20 30 78 25 78 29 | 20 20 70 6f 69 6e 74 3d |d, 0x%x)|  point=|
|000037b0| 25 64 20 6f 66 20 25 64 | 28 25 64 25 25 29 20 20 |%d of %d|(%d%%)  |
|000037c0| 63 6f 6c 75 6d 6e 20 25 | 64 20 25 73 22 5d 20 31 |column %|d %s"] 1|
|000037d0| 34 20 28 23 24 20 2e 20 | 31 33 36 34 35 29 20 22 |4 (#$ . |13645) "|
|000037e0| 5f 22 5d 29 0a 23 40 31 | 31 35 20 4d 61 6a 6f 72 |_"]).#@1|15 Major|
|000037f0| 20 6d 6f 64 65 20 6e 6f | 74 20 73 70 65 63 69 61 | mode no|t specia|
|00003800| 6c 69 7a 65 64 20 66 6f | 72 20 61 6e 79 74 68 69 |lized fo|r anythi|
|00003810| 6e 67 20 69 6e 20 70 61 | 72 74 69 63 75 6c 61 72 |ng in pa|rticular|
|00003820| 2e 0a 4f 74 68 65 72 20 | 6d 61 6a 6f 72 20 6d 6f |..Other |major mo|
|00003830| 64 65 73 20 61 72 65 20 | 64 65 66 69 6e 65 64 20 |des are |defined |
|00003840| 62 79 20 63 6f 6d 70 61 | 72 69 73 6f 6e 20 77 69 |by compa|rison wi|
|00003850| 74 68 20 74 68 69 73 20 | 6f 6e 65 2e 1f 0a 28 64 |th this |one...(d|
|00003860| 65 66 61 6c 69 61 73 20 | 27 66 75 6e 64 61 6d 65 |efalias |'fundame|
|00003870| 6e 74 61 6c 2d 6d 6f 64 | 65 20 23 5b 6e 69 6c 20 |ntal-mod|e #[nil |
|00003880| 22 c0 20 87 22 20 5b 6b | 69 6c 6c 2d 61 6c 6c 2d |". ." [k|ill-all-|
|00003890| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 73 5d |local-va|riables]|
|000038a0| 20 31 20 28 23 24 20 2e | 20 31 34 33 31 35 29 20 | 1 (#$ .| 14315) |
|000038b0| 6e 69 6c 5d 29 0a 23 40 | 31 31 31 20 45 76 61 6c |nil]).#@|111 Eval|
|000038c0| 75 61 74 65 20 45 58 50 | 52 45 53 53 49 4f 4e 20 |uate EXP|RESSION |
|000038d0| 61 6e 64 20 70 72 69 6e | 74 20 76 61 6c 75 65 20 |and prin|t value |
|000038e0| 69 6e 20 6d 69 6e 69 62 | 75 66 66 65 72 2e 0a 56 |in minib|uffer..V|
|000038f0| 61 6c 75 65 20 69 73 20 | 61 6c 73 6f 20 63 6f 6e |alue is |also con|
|00003900| 73 65 64 20 6f 6e 20 74 | 6f 20 66 72 6f 6e 74 20 |sed on t|o front |
|00003910| 6f 66 20 74 68 65 20 76 | 61 72 69 61 62 6c 65 20 |of the v|ariable |
|00003920| 60 76 61 6c 75 65 73 27 | 2e 1f 0a 28 64 65 66 61 |`values'|...(defa|
|00003930| 6c 69 61 73 20 27 65 76 | 61 6c 2d 65 78 70 72 65 |lias 'ev|al-expre|
|00003940| 73 73 69 6f 6e 20 23 5b | 28 65 78 70 72 65 73 73 |ssion #[|(express|
|00003950| 69 6f 6e 29 20 22 c0 09 | 21 5c 6e 42 12 c3 5c 6e |ion) "..|!\nB..\n|
|00003960| 40 c4 5c 22 87 22 20 5b | 65 76 61 6c 20 65 78 70 |@.\"." [|eval exp|
|00003970| 72 65 73 73 69 6f 6e 20 | 76 61 6c 75 65 73 20 70 |ression |values p|
|00003980| 72 69 6e 31 20 74 5d 20 | 33 20 28 23 24 20 2e 20 |rin1 t] |3 (#$ . |
|00003990| 31 34 35 32 34 29 20 28 | 6c 69 73 74 20 28 72 65 |14524) (|list (re|
|000039a0| 61 64 2d 66 72 6f 6d 2d | 6d 69 6e 69 62 75 66 66 |ad-from-|minibuff|
|000039b0| 65 72 20 22 45 76 61 6c | 3a 20 22 20 6e 69 6c 20 |er "Eval|: " nil |
|000039c0| 72 65 61 64 2d 65 78 70 | 72 65 73 73 69 6f 6e 2d |read-exp|ression-|
|000039d0| 6d 61 70 20 74 20 27 72 | 65 61 64 2d 65 78 70 72 |map t 'r|ead-expr|
|000039e0| 65 73 73 69 6f 6e 2d 68 | 69 73 74 6f 72 79 29 29 |ession-h|istory))|
|000039f0| 5d 29 0a 23 40 31 37 38 | 20 50 72 6f 6d 70 74 69 |]).#@178| Prompti|
|00003a00| 6e 67 20 77 69 74 68 20 | 50 52 4f 4d 50 54 2c 20 |ng with |PROMPT, |
|00003a10| 6c 65 74 20 75 73 65 72 | 20 65 64 69 74 20 43 4f |let user| edit CO|
|00003a20| 4d 4d 41 4e 44 20 61 6e | 64 20 65 76 61 6c 20 72 |MMAND an|d eval r|
|00003a30| 65 73 75 6c 74 2e 0a 43 | 4f 4d 4d 41 4e 44 20 69 |esult..C|OMMAND i|
|00003a40| 73 20 61 20 4c 69 73 70 | 20 65 78 70 72 65 73 73 |s a Lisp| express|
|00003a50| 69 6f 6e 2e 20 20 4c 65 | 74 20 75 73 65 72 20 65 |ion.  Le|t user e|
|00003a60| 64 69 74 20 74 68 61 74 | 20 65 78 70 72 65 73 73 |dit that| express|
|00003a70| 69 6f 6e 20 69 6e 0a 74 | 68 65 20 6d 69 6e 69 62 |ion in.t|he minib|
|00003a80| 75 66 66 65 72 2c 20 74 | 68 65 6e 20 72 65 61 64 |uffer, t|hen read|
|00003a90| 20 61 6e 64 20 65 76 61 | 6c 75 61 74 65 20 74 68 | and eva|luate th|
|00003aa0| 65 20 72 65 73 75 6c 74 | 2e 1f 0a 28 64 65 66 61 |e result|...(defa|
|00003ab0| 6c 69 61 73 20 27 65 64 | 69 74 2d 61 6e 64 2d 65 |lias 'ed|it-and-e|
|00003ac0| 76 61 6c 2d 63 6f 6d 6d | 61 6e 64 20 23 5b 28 70 |val-comm|and #[(p|
|00003ad0| 72 6f 6d 70 74 20 63 6f | 6d 6d 61 6e 64 20 26 6f |rompt co|mmand &o|
|00003ae0| 70 74 69 6f 6e 61 6c 20 | 68 69 73 74 6f 72 79 29 |ptional |history)|
|00003af0| 20 22 c0 09 c2 c3 c4 8f | 0d ae 81 c6 23 1e 07 0d | "......|....#...|
|00003b00| ac 82 c8 15 0d 3a ab 83 | 0d 40 15 0d c9 61 ac 9c |.....:..|.@...a..|
|00003b10| 0d 4a 40 3b ab 86 0d 89 | 4a 41 4c 88 0e 07 0d 4a |.J@;....|JAL....J|
|00003b20| 40 6b ac 88 0d 0e 07 0d | 4a 42 4c 88 ca 0e 07 21 |@k......|JBL....!|
|00003b30| 29 87 22 20 5b 72 65 61 | 64 2d 65 78 70 72 65 73 |)." [rea|d-expres|
|00003b40| 73 69 6f 6e 20 70 72 6f | 6d 70 74 20 6e 69 6c 20 |sion pro|mpt nil |
|00003b50| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 19 c2 0b |(byte-co|de "....|
|00003b60| 21 29 87 22 20 5b 74 20 | 70 72 69 6e 74 2d 72 65 |!)." [t |print-re|
|00003b70| 61 64 61 62 6c 79 20 70 | 72 69 6e 31 2d 74 6f 2d |adably p|rin1-to-|
|00003b80| 73 74 72 69 6e 67 20 63 | 6f 6d 6d 61 6e 64 5d 20 |string c|ommand] |
|00003b90| 32 29 20 28 28 65 72 72 | 6f 72 20 28 70 72 69 6e |2) ((err|or (prin|
|00003ba0| 31 2d 74 6f 2d 73 74 72 | 69 6e 67 20 63 6f 6d 6d |1-to-str|ing comm|
|00003bb0| 61 6e 64 29 29 29 20 68 | 69 73 74 6f 72 79 20 28 |and))) h|istory (|
|00003bc0| 63 6f 6d 6d 61 6e 64 2d | 68 69 73 74 6f 72 79 20 |command-|history |
|00003bd0| 2e 20 31 29 20 63 6f 6d | 6d 61 6e 64 20 63 6f 6d |. 1) com|mand com|
|00003be0| 6d 61 6e 64 2d 68 69 73 | 74 6f 72 79 20 74 20 65 |mand-his|tory t e|
|00003bf0| 76 61 6c 5d 20 35 20 28 | 23 24 20 2e 20 31 34 38 |val] 5 (|#$ . 148|
|00003c00| 34 31 29 5d 29 0a 23 40 | 35 33 37 20 45 64 69 74 |41)]).#@|537 Edit|
|00003c10| 20 61 6e 64 20 72 65 2d | 65 76 61 6c 75 61 74 65 | and re-|evaluate|
|00003c20| 20 6c 61 73 74 20 63 6f | 6d 70 6c 65 78 20 63 6f | last co|mplex co|
|00003c30| 6d 6d 61 6e 64 2c 20 6f | 72 20 41 52 47 74 68 20 |mmand, o|r ARGth |
|00003c40| 66 72 6f 6d 20 6c 61 73 | 74 2e 0a 41 20 63 6f 6d |from las|t..A com|
|00003c50| 70 6c 65 78 20 63 6f 6d | 6d 61 6e 64 20 69 73 20 |plex com|mand is |
|00003c60| 6f 6e 65 20 77 68 69 63 | 68 20 75 73 65 64 20 74 |one whic|h used t|
|00003c70| 68 65 20 6d 69 6e 69 62 | 75 66 66 65 72 2e 0a 54 |he minib|uffer..T|
|00003c80| 68 65 20 63 6f 6d 6d 61 | 6e 64 20 69 73 20 70 6c |he comma|nd is pl|
|00003c90| 61 63 65 64 20 69 6e 20 | 74 68 65 20 6d 69 6e 69 |aced in |the mini|
|00003ca0| 62 75 66 66 65 72 20 61 | 73 20 61 20 4c 69 73 70 |buffer a|s a Lisp|
|00003cb0| 20 66 6f 72 6d 20 66 6f | 72 20 65 64 69 74 69 6e | form fo|r editin|
|00003cc0| 67 2e 0a 54 68 65 20 72 | 65 73 75 6c 74 20 69 73 |g..The r|esult is|
|00003cd0| 20 65 78 65 63 75 74 65 | 64 2c 20 72 65 70 65 61 | execute|d, repea|
|00003ce0| 74 69 6e 67 20 74 68 65 | 20 63 6f 6d 6d 61 6e 64 |ting the| command|
|00003cf0| 20 61 73 20 63 68 61 6e | 67 65 64 2e 0a 49 66 20 | as chan|ged..If |
|00003d00| 74 68 65 20 63 6f 6d 6d | 61 6e 64 20 68 61 73 20 |the comm|and has |
|00003d10| 62 65 65 6e 20 63 68 61 | 6e 67 65 64 20 6f 72 20 |been cha|nged or |
|00003d20| 69 73 20 6e 6f 74 20 74 | 68 65 20 6d 6f 73 74 20 |is not t|he most |
|00003d30| 72 65 63 65 6e 74 20 70 | 72 65 76 69 6f 75 73 20 |recent p|revious |
|00003d40| 63 6f 6d 6d 61 6e 64 0a | 69 74 20 69 73 20 61 64 |command.|it is ad|
|00003d50| 64 65 64 20 74 6f 20 74 | 68 65 20 66 72 6f 6e 74 |ded to t|he front|
|00003d60| 20 6f 66 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 20 | of the |command |
|00003d70| 68 69 73 74 6f 72 79 2e | 0a 59 6f 75 20 63 61 6e |history.|.You can|
|00003d80| 20 75 73 65 20 74 68 65 | 20 6d 69 6e 69 62 75 66 | use the| minibuf|
|00003d90| 66 65 72 20 68 69 73 74 | 6f 72 79 20 63 6f 6d 6d |fer hist|ory comm|
|00003da0| 61 6e 64 73 20 5c 3c 6d | 69 6e 69 62 75 66 66 65 |ands \<m|inibuffe|
|00003db0| 72 2d 6c 6f 63 61 6c 2d | 6d 61 70 3e 5c 5b 6e 65 |r-local-|map>\[ne|
|00003dc0| 78 74 2d 68 69 73 74 6f | 72 79 2d 65 6c 65 6d 65 |xt-histo|ry-eleme|
|00003dd0| 6e 74 5d 20 61 6e 64 20 | 5c 5b 70 72 65 76 69 6f |nt] and |\[previo|
|00003de0| 75 73 2d 68 69 73 74 6f | 72 79 2d 65 6c 65 6d 65 |us-histo|ry-eleme|
|00003df0| 6e 74 5d 0a 74 6f 20 67 | 65 74 20 64 69 66 66 65 |nt].to g|et diffe|
|00003e00| 72 65 6e 74 20 63 6f 6d | 6d 61 6e 64 73 20 74 6f |rent com|mands to|
|00003e10| 20 65 64 69 74 20 61 6e | 64 20 72 65 73 75 62 6d | edit an|d resubm|
|00003e20| 69 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |it...(de|falias '|
|00003e30| 72 65 70 65 61 74 2d 63 | 6f 6d 70 6c 65 78 2d 63 |repeat-c|omplex-c|
|00003e40| 6f 6d 6d 61 6e 64 20 23 | 5b 28 61 72 67 29 20 22 |ommand #|[(arg) "|
|00003e50| c0 19 c2 c3 0c 53 0d 38 | ae 83 c6 c7 21 c5 0c 42 |.....S.8|....!..B|
|00003e60| 23 29 87 22 20 5b 6e 69 | 6c 20 70 72 69 6e 74 2d |#)." [ni|l print-|
|00003e70| 6c 65 76 65 6c 20 65 64 | 69 74 2d 61 6e 64 2d 65 |level ed|it-and-e|
|00003e80| 76 61 6c 2d 63 6f 6d 6d | 61 6e 64 20 22 52 65 64 |val-comm|and "Red|
|00003e90| 6f 3a 20 22 20 61 72 67 | 20 63 6f 6d 6d 61 6e 64 |o: " arg| command|
|00003ea0| 2d 68 69 73 74 6f 72 79 | 20 65 72 72 6f 72 20 22 |-history| error "|
|00003eb0| 22 5d 20 35 20 28 23 24 | 20 2e 20 31 35 33 37 32 |"] 5 (#$| . 15372|
|00003ec0| 29 20 22 70 22 5d 29 0a | 23 40 36 31 20 47 6f 74 |) "p"]).|#@61 Got|
|00003ed0| 6f 20 6c 69 6e 65 20 41 | 52 47 2c 20 63 6f 75 6e |o line A|RG, coun|
|00003ee0| 74 69 6e 67 20 66 72 6f | 6d 20 6c 69 6e 65 20 31 |ting fro|m line 1|
|00003ef0| 20 61 74 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 | at begi|nning of|
|00003f00| 20 62 75 66 66 65 72 2e | 1f 0a 28 64 65 66 61 6c | buffer.|..(defal|
|00003f10| 69 61 73 20 27 67 6f 74 | 6f 2d 6c 69 6e 65 20 23 |ias 'got|o-line #|
|00003f20| 5b 28 61 72 67 29 20 22 | c0 09 21 11 8c 7e 88 c2 |[(arg) "|..!..~..|
|00003f30| 62 88 0b c4 61 ab 89 c5 | c6 c7 c8 09 53 24 aa 83 |b...a...|....S$..|
|00003f40| 09 53 79 29 87 22 20 5b | 70 72 65 66 69 78 2d 6e |.Sy)." [|prefix-n|
|00003f50| 75 6d 65 72 69 63 2d 76 | 61 6c 75 65 20 61 72 67 |umeric-v|alue arg|
|00003f60| 20 31 20 73 65 6c 65 63 | 74 69 76 65 2d 64 69 73 | 1 selec|tive-dis|
|00003f70| 70 6c 61 79 20 74 20 72 | 65 2d 73 65 61 72 63 68 |play t r|e-search|
|00003f80| 2d 66 6f 72 77 61 72 64 | 20 22 5b 5c 6e 0d 5d 22 |-forward| "[\n.]"|
|00003f90| 20 6e 69 6c 20 65 6e 64 | 5d 20 35 20 28 23 24 20 | nil end|] 5 (#$ |
|00003fa0| 2e 20 31 36 30 37 37 29 | 20 22 4e 47 6f 74 6f 20 |. 16077)| "NGoto |
|00003fb0| 6c 69 6e 65 3a 20 22 5d | 29 0a 28 64 65 66 69 6e |line: "]|).(defin|
|00003fc0| 65 2d 66 75 6e 63 74 69 | 6f 6e 20 27 61 64 76 65 |e-functi|on 'adve|
|00003fd0| 72 74 69 73 65 64 2d 75 | 6e 64 6f 20 27 75 6e 64 |rtised-u|ndo 'und|
|00003fe0| 6f 29 0a 23 40 31 31 36 | 20 55 6e 64 6f 20 73 6f |o).#@116| Undo so|
|00003ff0| 6d 65 20 70 72 65 76 69 | 6f 75 73 20 63 68 61 6e |me previ|ous chan|
|00004000| 67 65 73 2e 0a 52 65 70 | 65 61 74 20 74 68 69 73 |ges..Rep|eat this|
|00004010| 20 63 6f 6d 6d 61 6e 64 | 20 74 6f 20 75 6e 64 6f | command| to undo|
|00004020| 20 6d 6f 72 65 20 63 68 | 61 6e 67 65 73 2e 0a 41 | more ch|anges..A|
|00004030| 20 6e 75 6d 65 72 69 63 | 20 61 72 67 75 6d 65 6e | numeric| argumen|
|00004040| 74 20 73 65 72 76 65 73 | 20 61 73 20 61 20 72 65 |t serves| as a re|
|00004050| 70 65 61 74 20 63 6f 75 | 6e 74 2e 1f 0a 28 64 65 |peat cou|nt...(de|
|00004060| 66 61 6c 69 61 73 20 27 | 75 6e 64 6f 20 23 5b 28 |falias '|undo #[(|
|00004070| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 29 20 22 |&optiona|l arg) "|
|00004080| c0 11 c2 20 c3 20 1c 1d | c6 20 c7 20 61 ac 85 c8 |... . ..|. . a...|
|00004090| c9 ca 5c 22 88 0e 0b cc | 61 ab 86 70 0e 0d 61 ac |..\"....|a..p..a.|
|000040a0| 87 ce 20 88 cf d0 21 88 | cf 0e 11 ae 81 d0 21 88 |.. ...!.|......!.|
|000040b0| 0e 12 d3 1e 14 89 1e 15 | ab a3 0e 14 ac 9f 0e 15 |........|........|
|000040c0| 40 ab 9a 0e 15 40 a8 ab | 8c c0 16 14 d6 0e 15 40 |@....@..|.......@|
|000040d0| 0e 12 5c 22 16 12 0e 15 | 41 89 16 15 ac 5d 2a 0d |..\"....|A....]*.|
|000040e0| ab 88 c2 20 ac 84 d7 0c | 21 88 2a cc 89 11 87 22 |... ....|!.*...."|
|000040f0| 20 5b 74 20 74 68 69 73 | 2d 63 6f 6d 6d 61 6e 64 | [t this|-command|
|00004100| 20 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 | buffer-|modified|
|00004110| 2d 70 20 72 65 63 65 6e | 74 2d 61 75 74 6f 2d 73 |-p recen|t-auto-s|
|00004120| 61 76 65 2d 70 20 72 65 | 63 65 6e 74 2d 73 61 76 |ave-p re|cent-sav|
|00004130| 65 20 6d 6f 64 69 66 69 | 65 64 20 73 65 6c 65 63 |e modifi|ed selec|
|00004140| 74 65 64 2d 77 69 6e 64 | 6f 77 20 6d 69 6e 69 62 |ted-wind|ow minib|
|00004150| 75 66 66 65 72 2d 77 69 | 6e 64 6f 77 20 64 69 73 |uffer-wi|ndow dis|
|00004160| 70 6c 61 79 2d 6d 65 73 | 73 61 67 65 20 63 6f 6d |play-mes|sage com|
|00004170| 6d 61 6e 64 20 22 55 6e | 64 6f 21 22 20 6c 61 73 |mand "Un|do!" las|
|00004180| 74 2d 63 6f 6d 6d 61 6e | 64 20 75 6e 64 6f 20 6c |t-comman|d undo l|
|00004190| 61 73 74 2d 75 6e 64 6f | 2d 62 75 66 66 65 72 20 |ast-undo|-buffer |
|000041a0| 75 6e 64 6f 2d 73 74 61 | 72 74 20 75 6e 64 6f 2d |undo-sta|rt undo-|
|000041b0| 6d 6f 72 65 20 31 20 61 | 72 67 20 62 75 66 66 65 |more 1 a|rg buffe|
|000041c0| 72 2d 75 6e 64 6f 2d 6c | 69 73 74 20 6e 69 6c 20 |r-undo-l|ist nil |
|000041d0| 64 6f 6e 65 20 74 61 69 | 6c 20 64 65 6c 71 20 64 |done tai|l delq d|
|000041e0| 65 6c 65 74 65 2d 61 75 | 74 6f 2d 73 61 76 65 2d |elete-au|to-save-|
|000041f0| 66 69 6c 65 2d 69 66 2d | 6e 65 63 65 73 73 61 72 |file-if-|necessar|
|00004200| 79 5d 20 34 20 28 23 24 | 20 2e 20 31 36 33 36 31 |y] 4 (#$| . 16361|
|00004210| 29 20 22 2a 70 22 5d 29 | 0a 23 40 37 33 20 57 69 |) "*p"])|.#@73 Wi|
|00004220| 74 68 69 6e 20 61 20 72 | 75 6e 20 6f 66 20 63 6f |thin a r|un of co|
|00004230| 6e 73 65 63 75 74 69 76 | 65 20 75 6e 64 6f 20 63 |nsecutiv|e undo c|
|00004240| 6f 6d 6d 61 6e 64 73 2c | 20 6c 69 73 74 20 72 65 |ommands,| list re|
|00004250| 6d 61 69 6e 69 6e 67 20 | 74 6f 20 62 65 20 75 6e |maining |to be un|
|00004260| 64 6f 6e 65 2e 1f 0a 28 | 64 65 66 76 61 72 20 70 |done...(|defvar p|
|00004270| 65 6e 64 69 6e 67 2d 75 | 6e 64 6f 2d 6c 69 73 74 |ending-u|ndo-list|
|00004280| 20 6e 69 6c 20 28 23 24 | 20 2e 20 31 36 39 32 36 | nil (#$| . 16926|
|00004290| 29 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |)).(byte|-code ".|
|000042a0| c1 21 ac 82 c2 11 c1 0b | 42 13 c2 87 22 20 5b 62 |.!......|B..." [b|
|000042b0| 6f 75 6e 64 70 20 6c 61 | 73 74 2d 75 6e 64 6f 2d |oundp la|st-undo-|
|000042c0| 62 75 66 66 65 72 20 6e | 69 6c 20 63 75 72 72 65 |buffer n|il curre|
|000042d0| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 5d 20 32 29 |nt-load-|list] 2)|
|000042e0| 0a 23 40 31 32 36 20 53 | 65 74 20 60 70 65 6e 64 |.#@126 S|et `pend|
|000042f0| 69 6e 67 2d 75 6e 64 6f | 2d 6c 69 73 74 27 20 74 |ing-undo|-list' t|
|00004300| 6f 20 74 68 65 20 66 72 | 6f 6e 74 20 6f 66 20 74 |o the fr|ont of t|
|00004310| 68 65 20 75 6e 64 6f 20 | 6c 69 73 74 2e 0a 54 68 |he undo |list..Th|
|00004320| 65 20 6e 65 78 74 20 63 | 61 6c 6c 20 74 6f 20 60 |e next c|all to `|
|00004330| 75 6e 64 6f 2d 6d 6f 72 | 65 27 20 77 69 6c 6c 20 |undo-mor|e' will |
|00004340| 75 6e 64 6f 20 74 68 65 | 20 6d 6f 73 74 20 72 65 |undo the| most re|
|00004350| 63 65 6e 74 6c 79 20 6d | 61 64 65 20 63 68 61 6e |cently m|ade chan|
|00004360| 67 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ge...(de|falias '|
|00004370| 75 6e 64 6f 2d 73 74 61 | 72 74 20 23 5b 6e 69 6c |undo-sta|rt #[nil|
|00004380| 20 22 08 c1 61 ab 84 c2 | c3 21 88 08 89 14 87 22 | "..a...|.!....."|
|00004390| 20 5b 62 75 66 66 65 72 | 2d 75 6e 64 6f 2d 6c 69 | [buffer|-undo-li|
|000043a0| 73 74 20 74 20 65 72 72 | 6f 72 20 22 4e 6f 20 75 |st t err|or "No u|
|000043b0| 6e 64 6f 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |ndo info|rmation |
|000043c0| 69 6e 20 74 68 69 73 20 | 62 75 66 66 65 72 22 20 |in this |buffer" |
|000043d0| 70 65 6e 64 69 6e 67 2d | 75 6e 64 6f 2d 6c 69 73 |pending-|undo-lis|
|000043e0| 74 5d 20 32 20 28 23 24 | 20 2e 20 31 37 31 32 37 |t] 2 (#$| . 17127|
|000043f0| 29 5d 29 0a 23 40 31 37 | 39 20 55 6e 64 6f 20 62 |)]).#@17|9 Undo b|
|00004400| 61 63 6b 20 4e 20 75 6e | 64 6f 2d 62 6f 75 6e 64 |ack N un|do-bound|
|00004410| 61 72 69 65 73 20 62 65 | 79 6f 6e 64 20 77 68 61 |aries be|yond wha|
|00004420| 74 20 77 61 73 20 61 6c | 72 65 61 64 79 20 75 6e |t was al|ready un|
|00004430| 64 6f 6e 65 20 72 65 63 | 65 6e 74 6c 79 2e 0a 43 |done rec|ently..C|
|00004440| 61 6c 6c 20 60 75 6e 64 | 6f 2d 73 74 61 72 74 27 |all `und|o-start'|
|00004450| 20 74 6f 20 67 65 74 20 | 72 65 61 64 79 20 74 6f | to get |ready to|
|00004460| 20 75 6e 64 6f 20 72 65 | 63 65 6e 74 20 63 68 61 | undo re|cent cha|
|00004470| 6e 67 65 73 2c 0a 74 68 | 65 6e 20 63 61 6c 6c 20 |nges,.th|en call |
|00004480| 60 75 6e 64 6f 2d 6d 6f | 72 65 27 20 6f 6e 65 20 |`undo-mo|re' one |
|00004490| 6f 72 20 6d 6f 72 65 20 | 74 69 6d 65 73 20 74 6f |or more |times to|
|000044a0| 20 75 6e 64 6f 20 74 68 | 65 6d 2e 1f 0a 28 64 65 | undo th|em...(de|
|000044b0| 66 61 6c 69 61 73 20 27 | 75 6e 64 6f 2d 6d 6f 72 |falias '|undo-mor|
|000044c0| 65 20 23 5b 28 63 6f 75 | 6e 74 29 20 22 08 ac 84 |e #[(cou|nt) "...|
|000044d0| c1 c2 21 88 c3 0c 08 5c | 22 10 70 89 15 87 22 20 |..!....\|".p..." |
|000044e0| 5b 70 65 6e 64 69 6e 67 | 2d 75 6e 64 6f 2d 6c 69 |[pending|-undo-li|
|000044f0| 73 74 20 65 72 72 6f 72 | 20 22 4e 6f 20 66 75 72 |st error| "No fur|
|00004500| 74 68 65 72 20 75 6e 64 | 6f 20 69 6e 66 6f 72 6d |ther und|o inform|
|00004510| 61 74 69 6f 6e 22 20 70 | 72 69 6d 69 74 69 76 65 |ation" p|rimitive|
|00004520| 2d 75 6e 64 6f 20 63 6f | 75 6e 74 20 6c 61 73 74 |-undo co|unt last|
|00004530| 2d 75 6e 64 6f 2d 62 75 | 66 66 65 72 5d 20 33 20 |-undo-bu|ffer] 3 |
|00004540| 28 23 24 20 2e 20 31 37 | 34 30 32 29 5d 29 0a 23 |(#$ . 17|402)]).#|
|00004550| 40 33 36 32 20 41 70 70 | 6c 79 20 46 4e 20 74 6f |@362 App|ly FN to|
|00004560| 20 41 52 47 53 2c 20 61 | 6e 64 20 74 68 65 6e 20 | ARGS, a|nd then |
|00004570| 75 6e 64 6f 20 61 6c 6c | 20 63 68 61 6e 67 65 73 |undo all| changes|
|00004580| 20 6d 61 64 65 20 62 79 | 20 46 4e 20 74 6f 20 74 | made by| FN to t|
|00004590| 68 65 20 63 75 72 72 65 | 6e 74 0a 62 75 66 66 65 |he curre|nt.buffe|
|000045a0| 72 2e 20 20 54 68 65 20 | 75 6e 64 6f 20 72 65 63 |r.  The |undo rec|
|000045b0| 6f 72 64 73 20 61 72 65 | 20 70 72 6f 63 65 73 73 |ords are| process|
|000045c0| 65 64 20 65 76 65 6e 20 | 69 66 20 46 4e 20 72 65 |ed even |if FN re|
|000045d0| 74 75 72 6e 73 20 6e 6f | 6e 2d 6c 6f 63 61 6c 6c |turns no|n-locall|
|000045e0| 79 2e 0a 54 68 65 72 65 | 20 69 73 20 6e 6f 20 74 |y..There| is no t|
|000045f0| 72 61 63 65 20 6f 66 20 | 74 68 65 20 63 68 61 6e |race of |the chan|
|00004600| 67 65 73 20 6d 61 64 65 | 20 62 79 20 46 4e 20 69 |ges made| by FN i|
|00004610| 6e 20 74 68 65 20 62 75 | 66 66 65 72 27 73 20 75 |n the bu|ffer's u|
|00004620| 6e 64 6f 20 68 69 73 74 | 6f 72 79 2e 0a 0a 59 6f |ndo hist|ory...Yo|
|00004630| 75 20 63 61 6e 20 75 73 | 65 20 74 68 69 73 20 69 |u can us|e this i|
|00004640| 6e 20 61 20 77 72 69 74 | 65 2d 66 69 6c 65 2d 68 |n a writ|e-file-h|
|00004650| 6f 6f 6b 73 20 66 75 6e | 63 74 69 6f 6e 20 77 69 |ooks fun|ction wi|
|00004660| 74 68 20 63 6f 6e 74 69 | 6e 75 65 2d 73 61 76 65 |th conti|nue-save|
|00004670| 2d 62 75 66 66 65 72 0a | 74 6f 20 6d 61 6b 65 20 |-buffer.|to make |
|00004680| 74 68 65 20 63 6f 6e 74 | 65 6e 74 73 20 6f 66 20 |the cont|ents of |
|00004690| 61 20 64 69 73 6b 20 66 | 69 6c 65 20 64 69 66 66 |a disk f|ile diff|
|000046a0| 65 72 20 66 72 6f 6d 20 | 69 74 73 20 69 6e 2d 6d |er from |its in-m|
|000046b0| 65 6d 6f 72 79 20 62 75 | 66 66 65 72 2e 1f 0a 28 |emory bu|ffer...(|
|000046c0| 64 65 66 61 6c 69 61 73 | 20 27 63 61 6c 6c 2d 77 |defalias| 'call-w|
|000046d0| 69 74 68 2d 74 72 61 6e | 73 70 61 72 65 6e 74 2d |ith-tran|sparent-|
|000046e0| 75 6e 64 6f 20 23 5b 28 | 66 6e 20 26 72 65 73 74 |undo #[(|fn &rest|
|000046f0| 20 61 72 67 73 29 20 22 | c0 c1 89 70 1a 1b 1c 1d | args) "|...p....|
|00004700| c6 8e c7 0e 08 0e 09 5c | 22 2d 87 22 20 5b 6e 69 |.......\|"-." [ni|
|00004710| 6c 20 2d 31 20 6f 62 75 | 66 66 65 72 20 75 6e 64 |l -1 obu|ffer und|
|00004720| 6f 2d 74 68 72 65 73 68 | 6f 6c 64 20 75 6e 64 6f |o-thresh|old undo|
|00004730| 2d 68 69 67 68 2d 74 68 | 72 65 73 68 6f 6c 64 20 |-high-th|reshold |
|00004740| 62 75 66 66 65 72 2d 75 | 6e 64 6f 2d 6c 69 73 74 |buffer-u|ndo-list|
|00004750| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 71 | ((byte-|code ".q|
|00004760| 88 8a c1 1a 8c 7e 88 0b | 1c c5 13 0c ab 89 c6 0c |.....~..|........|
|00004770| 47 0c 5c 22 89 14 ac 77 | 2c c1 87 22 20 5b 6f 62 |G.\"...w|,.." [ob|
|00004780| 75 66 66 65 72 20 6e 69 | 6c 20 62 75 66 66 65 72 |uffer ni|l buffer|
|00004790| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 62 75 66 66 65 |-read-on|ly buffe|
|000047a0| 72 2d 75 6e 64 6f 2d 6c | 69 73 74 20 74 61 69 6c |r-undo-l|ist tail|
|000047b0| 20 74 20 70 72 69 6d 69 | 74 69 76 65 2d 75 6e 64 | t primi|tive-und|
|000047c0| 6f 5d 20 34 29 29 20 61 | 70 70 6c 79 20 66 6e 20 |o] 4)) a|pply fn |
|000047d0| 61 72 67 73 5d 20 34 20 | 28 23 24 20 2e 20 31 37 |args] 4 |(#$ . 17|
|000047e0| 37 34 39 29 5d 29 0a 23 | 40 35 33 20 4b 65 79 6d |749)]).#|@53 Keym|
|000047f0| 61 70 20 75 73 65 64 20 | 77 68 69 6c 65 20 70 72 |ap used |while pr|
|00004800| 6f 63 65 73 73 69 6e 67 | 20 5c 5b 75 6e 69 76 65 |ocessing| \[unive|
|00004810| 72 73 61 6c 2d 61 72 67 | 75 6d 65 6e 74 5d 2e 1f |rsal-arg|ument]..|
|00004820| 0a 28 64 65 66 63 6f 6e | 73 74 20 75 6e 69 76 65 |.(defcon|st unive|
|00004830| 72 73 61 6c 2d 61 72 67 | 75 6d 65 6e 74 2d 6d 61 |rsal-arg|ument-ma|
|00004840| 70 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 20 |p (byte-|code ". |
|00004850| 19 c2 09 c3 5c 22 88 c4 | 09 c5 c3 23 88 c4 09 c6 |....\"..|...#....|
|00004860| c3 23 88 c4 09 c7 c8 23 | 88 c4 09 c9 ca 23 88 c4 |.#.....#|.....#..|
|00004870| 09 cb cc 23 88 c4 09 cd | cc 23 88 c4 09 ce cc 23 |...#....|.#.....#|
|00004880| 88 c4 09 cf cc 23 88 c4 | 09 d0 cc 23 88 c4 09 d1 |.....#..|...#....|
|00004890| cc 23 88 c4 09 d2 cc 23 | 88 c4 09 d3 cc 23 88 c4 |.#.....#|.....#..|
|000048a0| 09 d4 cc 23 88 c4 09 d5 | cc 23 88 09 29 87 22 20 |...#....|.#..)." |
|000048b0| 5b 6d 61 6b 65 2d 73 70 | 61 72 73 65 2d 6b 65 79 |[make-sp|arse-key|
|000048c0| 6d 61 70 20 6d 61 70 20 | 73 65 74 2d 6b 65 79 6d |map map |set-keym|
|000048d0| 61 70 2d 64 65 66 61 75 | 6c 74 2d 62 69 6e 64 69 |ap-defau|lt-bindi|
|000048e0| 6e 67 20 75 6e 69 76 65 | 72 73 61 6c 2d 61 72 67 |ng unive|rsal-arg|
|000048f0| 75 6d 65 6e 74 2d 6f 74 | 68 65 72 2d 6b 65 79 20 |ument-ot|her-key |
|00004900| 64 65 66 69 6e 65 2d 6b | 65 79 20 5b 28 74 29 5d |define-k|ey [(t)]|
|00004910| 20 5b 28 6d 65 74 61 20 | 74 29 5d 20 5b 28 63 6f | [(meta |t)] [(co|
|00004920| 6e 74 72 6f 6c 20 75 29 | 5d 20 75 6e 69 76 65 72 |ntrol u)|] univer|
|00004930| 73 61 6c 2d 61 72 67 75 | 6d 65 6e 74 2d 6d 6f 72 |sal-argu|ment-mor|
|00004940| 65 20 5b 3f 5c 2d 5d 20 | 75 6e 69 76 65 72 73 61 |e [?\-] |universa|
|00004950| 6c 2d 61 72 67 75 6d 65 | 6e 74 2d 6d 69 6e 75 73 |l-argume|nt-minus|
|00004960| 20 5b 3f 30 5d 20 64 69 | 67 69 74 2d 61 72 67 75 | [?0] di|git-argu|
|00004970| 6d 65 6e 74 20 5b 3f 31 | 5d 20 5b 3f 32 5d 20 5b |ment [?1|] [?2] [|
|00004980| 3f 33 5d 20 5b 3f 34 5d | 20 5b 3f 35 5d 20 5b 3f |?3] [?4]| [?5] [?|
|00004990| 36 5d 20 5b 3f 37 5d 20 | 5b 3f 38 5d 20 5b 3f 39 |6] [?7] |[?8] [?9|
|000049a0| 5d 5d 20 34 29 20 28 23 | 24 20 2e 20 31 38 34 31 |]] 4) (#|$ . 1841|
|000049b0| 32 29 29 0a 23 40 31 39 | 34 20 4e 75 6d 62 65 72 |2)).#@19|4 Number|
|000049c0| 20 6f 66 20 61 72 67 75 | 6d 65 6e 74 2d 73 70 65 | of argu|ment-spe|
|000049d0| 63 69 66 79 69 6e 67 20 | 65 76 65 6e 74 73 20 72 |cifying |events r|
|000049e0| 65 61 64 20 62 79 20 60 | 75 6e 69 76 65 72 73 61 |ead by `|universa|
|000049f0| 6c 2d 61 72 67 75 6d 65 | 6e 74 27 2e 0a 60 75 6e |l-argume|nt'..`un|
|00004a00| 69 76 65 72 73 61 6c 2d | 61 72 67 75 6d 65 6e 74 |iversal-|argument|
|00004a10| 2d 6f 74 68 65 72 2d 6b | 65 79 27 20 75 73 65 73 |-other-k|ey' uses|
|00004a20| 20 74 68 69 73 20 74 6f | 20 64 69 73 63 61 72 64 | this to| discard|
|00004a30| 20 74 68 6f 73 65 20 65 | 76 65 6e 74 73 0a 66 72 | those e|vents.fr|
|00004a40| 6f 6d 20 28 74 68 69 73 | 2d 63 6f 6d 6d 61 6e 64 |om (this|-command|
|00004a50| 2d 6b 65 79 73 29 2c 20 | 61 6e 64 20 72 65 72 65 |-keys), |and rere|
|00004a60| 61 64 20 6f 6e 6c 79 20 | 74 68 65 20 66 69 6e 61 |ad only |the fina|
|00004a70| 6c 20 63 6f 6d 6d 61 6e | 64 2e 1f 0a 28 64 65 66 |l comman|d...(def|
|00004a80| 76 61 72 20 75 6e 69 76 | 65 72 73 61 6c 2d 61 72 |var univ|ersal-ar|
|00004a90| 67 75 6d 65 6e 74 2d 6e | 75 6d 2d 65 76 65 6e 74 |gument-n|um-event|
|00004aa0| 73 20 6e 69 6c 20 28 23 | 24 20 2e 20 31 38 38 37 |s nil (#|$ . 1887|
|00004ab0| 34 29 29 0a 23 40 33 38 | 39 20 42 65 67 69 6e 20 |4)).#@38|9 Begin |
|00004ac0| 61 20 6e 75 6d 65 72 69 | 63 20 61 72 67 75 6d 65 |a numeri|c argume|
|00004ad0| 6e 74 20 66 6f 72 20 74 | 68 65 20 66 6f 6c 6c 6f |nt for t|he follo|
|00004ae0| 77 69 6e 67 20 63 6f 6d | 6d 61 6e 64 2e 0a 44 69 |wing com|mand..Di|
|00004af0| 67 69 74 73 20 6f 72 20 | 6d 69 6e 75 73 20 73 69 |gits or |minus si|
|00004b00| 67 6e 20 66 6f 6c 6c 6f | 77 69 6e 67 20 5c 5b 75 |gn follo|wing \[u|
|00004b10| 6e 69 76 65 72 73 61 6c | 2d 61 72 67 75 6d 65 6e |niversal|-argumen|
|00004b20| 74 5d 20 6d 61 6b 65 20 | 75 70 20 74 68 65 20 6e |t] make |up the n|
|00004b30| 75 6d 65 72 69 63 20 61 | 72 67 75 6d 65 6e 74 2e |umeric a|rgument.|
|00004b40| 0a 5c 5b 75 6e 69 76 65 | 72 73 61 6c 2d 61 72 67 |.\[unive|rsal-arg|
|00004b50| 75 6d 65 6e 74 5d 20 66 | 6f 6c 6c 6f 77 69 6e 67 |ument] f|ollowing|
|00004b60| 20 74 68 65 20 64 69 67 | 69 74 73 20 6f 72 20 6d | the dig|its or m|
|00004b70| 69 6e 75 73 20 73 69 67 | 6e 20 65 6e 64 73 20 74 |inus sig|n ends t|
|00004b80| 68 65 20 61 72 67 75 6d | 65 6e 74 2e 0a 5c 5b 75 |he argum|ent..\[u|
|00004b90| 6e 69 76 65 72 73 61 6c | 2d 61 72 67 75 6d 65 6e |niversal|-argumen|
|00004ba0| 74 5d 20 77 69 74 68 6f | 75 74 20 64 69 67 69 74 |t] witho|ut digit|
|00004bb0| 73 20 6f 72 20 6d 69 6e | 75 73 20 73 69 67 6e 20 |s or min|us sign |
|00004bc0| 70 72 6f 76 69 64 65 73 | 20 34 20 61 73 20 61 72 |provides| 4 as ar|
|00004bd0| 67 75 6d 65 6e 74 2e 0a | 52 65 70 65 61 74 69 6e |gument..|Repeatin|
|00004be0| 67 20 5c 5b 75 6e 69 76 | 65 72 73 61 6c 2d 61 72 |g \[univ|ersal-ar|
|00004bf0| 67 75 6d 65 6e 74 5d 20 | 77 69 74 68 6f 75 74 20 |gument] |without |
|00004c00| 64 69 67 69 74 73 20 6f | 72 20 6d 69 6e 75 73 20 |digits o|r minus |
|00004c10| 73 69 67 6e 0a 20 6d 75 | 6c 74 69 70 6c 69 65 73 |sign. mu|ltiplies|
|00004c20| 20 74 68 65 20 61 72 67 | 75 6d 65 6e 74 20 62 79 | the arg|ument by|
|00004c30| 20 34 20 65 61 63 68 20 | 74 69 6d 65 2e 1f 0a 28 | 4 each |time...(|
|00004c40| 64 65 66 61 6c 69 61 73 | 20 27 75 6e 69 76 65 72 |defalias| 'univer|
|00004c50| 73 61 6c 2d 61 72 67 75 | 6d 65 6e 74 20 23 5b 6e |sal-argu|ment #[n|
|00004c60| 69 6c 20 22 c0 43 11 c2 | 13 c4 20 47 15 0e 06 89 |il ".C..|.. G....|
|00004c70| 16 07 87 22 20 5b 34 20 | 70 72 65 66 69 78 2d 61 |..." [4 |prefix-a|
|00004c80| 72 67 20 74 20 7a 6d 61 | 63 73 2d 72 65 67 69 6f |rg t zma|cs-regio|
|00004c90| 6e 2d 73 74 61 79 73 20 | 74 68 69 73 2d 63 6f 6d |n-stays |this-com|
|00004ca0| 6d 61 6e 64 2d 6b 65 79 | 73 20 75 6e 69 76 65 72 |mand-key|s univer|
|00004cb0| 73 61 6c 2d 61 72 67 75 | 6d 65 6e 74 2d 6e 75 6d |sal-argu|ment-num|
|00004cc0| 2d 65 76 65 6e 74 73 20 | 75 6e 69 76 65 72 73 61 |-events |universa|
|00004cd0| 6c 2d 61 72 67 75 6d 65 | 6e 74 2d 6d 61 70 20 6f |l-argume|nt-map o|
|00004ce0| 76 65 72 72 69 64 69 6e | 67 2d 74 65 72 6d 69 6e |verridin|g-termin|
|00004cf0| 61 6c 2d 6c 6f 63 61 6c | 2d 6d 61 70 5d 20 32 20 |al-local|-map] 2 |
|00004d00| 28 23 24 20 2e 20 31 39 | 31 33 30 29 20 6e 69 6c |(#$ . 19|130) nil|
|00004d10| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 75 6e |]).(defa|lias 'un|
|00004d20| 69 76 65 72 73 61 6c 2d | 61 72 67 75 6d 65 6e 74 |iversal-|argument|
|00004d30| 2d 6d 6f 72 65 20 23 5b | 28 61 72 67 29 20 22 08 |-more #[|(arg) ".|
|00004d40| 3a ab 88 08 40 c1 5f 43 | 12 aa 84 08 12 c3 14 c5 |:...@._C|........|
|00004d50| 20 47 89 16 06 87 22 20 | 5b 61 72 67 20 34 20 70 | G...." |[arg 4 p|
|00004d60| 72 65 66 69 78 2d 61 72 | 67 20 6e 69 6c 20 6f 76 |refix-ar|g nil ov|
|00004d70| 65 72 72 69 64 69 6e 67 | 2d 74 65 72 6d 69 6e 61 |erriding|-termina|
|00004d80| 6c 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 74 68 69 73 |l-local-|map this|
|00004d90| 2d 63 6f 6d 6d 61 6e 64 | 2d 6b 65 79 73 20 75 6e |-command|-keys un|
|00004da0| 69 76 65 72 73 61 6c 2d | 61 72 67 75 6d 65 6e 74 |iversal-|argument|
|00004db0| 2d 6e 75 6d 2d 65 76 65 | 6e 74 73 5d 20 32 20 6e |-num-eve|nts] 2 n|
|00004dc0| 69 6c 20 22 5f 50 22 5d | 29 0a 23 40 31 32 39 20 |il "_P"]|).#@129 |
|00004dd0| 42 65 67 69 6e 20 61 20 | 6e 65 67 61 74 69 76 65 |Begin a |negative|
|00004de0| 20 6e 75 6d 65 72 69 63 | 20 61 72 67 75 6d 65 6e | numeric| argumen|
|00004df0| 74 20 66 6f 72 20 74 68 | 65 20 6e 65 78 74 20 63 |t for th|e next c|
|00004e00| 6f 6d 6d 61 6e 64 2e 0a | 5c 5b 75 6e 69 76 65 72 |ommand..|\[univer|
|00004e10| 73 61 6c 2d 61 72 67 75 | 6d 65 6e 74 5d 20 66 6f |sal-argu|ment] fo|
|00004e20| 6c 6c 6f 77 69 6e 67 20 | 64 69 67 69 74 73 20 6f |llowing |digits o|
|00004e30| 72 20 6d 69 6e 75 73 20 | 73 69 67 6e 20 65 6e 64 |r minus |sign end|
|00004e40| 73 20 74 68 65 20 61 72 | 67 75 6d 65 6e 74 2e 1f |s the ar|gument..|
|00004e50| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 65 67 61 |.(defali|as 'nega|
|00004e60| 74 69 76 65 2d 61 72 67 | 75 6d 65 6e 74 20 23 5b |tive-arg|ument #[|
|00004e70| 28 61 72 67 29 20 22 08 | a8 ab 85 08 5b 11 aa 8b |(arg) ".|....[...|
|00004e80| 08 c2 61 ab 84 c3 11 aa | 82 c2 11 c4 20 47 15 0e |..a.....|.... G..|
|00004e90| 06 89 16 07 87 22 20 5b | 61 72 67 20 70 72 65 66 |....." [|arg pref|
|00004ea0| 69 78 2d 61 72 67 20 2d | 20 6e 69 6c 20 74 68 69 |ix-arg -| nil thi|
|00004eb0| 73 2d 63 6f 6d 6d 61 6e | 64 2d 6b 65 79 73 20 75 |s-comman|d-keys u|
|00004ec0| 6e 69 76 65 72 73 61 6c | 2d 61 72 67 75 6d 65 6e |niversal|-argumen|
|00004ed0| 74 2d 6e 75 6d 2d 65 76 | 65 6e 74 73 20 75 6e 69 |t-num-ev|ents uni|
|00004ee0| 76 65 72 73 61 6c 2d 61 | 72 67 75 6d 65 6e 74 2d |versal-a|rgument-|
|00004ef0| 6d 61 70 20 6f 76 65 72 | 72 69 64 69 6e 67 2d 74 |map over|riding-t|
|00004f00| 65 72 6d 69 6e 61 6c 2d | 6c 6f 63 61 6c 2d 6d 61 |erminal-|local-ma|
|00004f10| 70 5d 20 32 20 28 23 24 | 20 2e 20 31 39 39 32 30 |p] 2 (#$| . 19920|
|00004f20| 29 20 22 5f 50 22 5d 29 | 0a 23 40 31 32 34 20 50 |) "_P"])|.#@124 P|
|00004f30| 61 72 74 20 6f 66 20 74 | 68 65 20 6e 75 6d 65 72 |art of t|he numer|
|00004f40| 69 63 20 61 72 67 75 6d | 65 6e 74 20 66 6f 72 20 |ic argum|ent for |
|00004f50| 74 68 65 20 6e 65 78 74 | 20 63 6f 6d 6d 61 6e 64 |the next| command|
|00004f60| 2e 0a 5c 5b 75 6e 69 76 | 65 72 73 61 6c 2d 61 72 |..\[univ|ersal-ar|
|00004f70| 67 75 6d 65 6e 74 5d 20 | 66 6f 6c 6c 6f 77 69 6e |gument] |followin|
|00004f80| 67 20 64 69 67 69 74 73 | 20 6f 72 20 6d 69 6e 75 |g digits| or minu|
|00004f90| 73 20 73 69 67 6e 20 65 | 6e 64 73 20 74 68 65 20 |s sign e|nds the |
|00004fa0| 61 72 67 75 6d 65 6e 74 | 2e 1f 0a 28 64 65 66 61 |argument|...(defa|
|00004fb0| 6c 69 61 73 20 27 64 69 | 67 69 74 2d 61 72 67 75 |lias 'di|git-argu|
|00004fc0| 6d 65 6e 74 20 23 5b 28 | 61 72 67 29 20 22 08 19 |ment #[(|arg) "..|
|00004fd0| c2 09 21 ad 83 c3 09 21 | 89 1c ad 92 c5 0c 21 ad |..!....!|......!.|
|00004fe0| 8d 0c c6 59 ad 88 0c c7 | 58 ad 83 0c c6 5a 89 1e |...Y....|X....Z..|
|00004ff0| 08 ac 86 c9 0e 5c 6e 21 | aa bf 0e 5c 6e a8 ab 96 |.....\n!|...\n...|
|00005000| 0e 5c 6e cb 5f 0e 5c 6e | cc 57 ab 85 0e 08 5b aa |.\n._.\n|.W....[.|
|00005010| 82 0e 08 5c 5c 16 0d aa | 9a 0e 5c 6e ce 61 ab 90 |...\\...|..\n.a..|
|00005020| 0e 08 cc 55 ab 83 ce aa | 83 0e 08 5b 16 0d aa 84 |...U....|...[....|
|00005030| 0e 08 16 0d cf 20 47 16 | 10 0e 11 89 16 12 2b 87 |..... G.|......+.|
|00005040| 22 20 5b 6c 61 73 74 2d | 63 6f 6d 6d 61 6e 64 2d |" [last-|command-|
|00005050| 65 76 65 6e 74 20 65 76 | 65 6e 74 20 6b 65 79 2d |event ev|ent key-|
|00005060| 70 72 65 73 73 2d 65 76 | 65 6e 74 2d 70 20 65 76 |press-ev|ent-p ev|
|00005070| 65 6e 74 2d 6b 65 79 20 | 6b 65 79 20 63 68 61 72 |ent-key |key char|
|00005080| 61 63 74 65 72 70 20 3f | 30 20 3f 39 20 64 69 67 |acterp ?|0 ?9 dig|
|00005090| 69 74 20 75 6e 69 76 65 | 72 73 61 6c 2d 61 72 67 |it unive|rsal-arg|
|000050a0| 75 6d 65 6e 74 2d 6f 74 | 68 65 72 2d 6b 65 79 20 |ument-ot|her-key |
|000050b0| 61 72 67 20 31 30 20 30 | 20 70 72 65 66 69 78 2d |arg 10 0| prefix-|
|000050c0| 61 72 67 20 2d 20 74 68 | 69 73 2d 63 6f 6d 6d 61 |arg - th|is-comma|
|000050d0| 6e 64 2d 6b 65 79 73 20 | 75 6e 69 76 65 72 73 61 |nd-keys |universa|
|000050e0| 6c 2d 61 72 67 75 6d 65 | 6e 74 2d 6e 75 6d 2d 65 |l-argume|nt-num-e|
|000050f0| 76 65 6e 74 73 20 75 6e | 69 76 65 72 73 61 6c 2d |vents un|iversal-|
|00005100| 61 72 67 75 6d 65 6e 74 | 2d 6d 61 70 20 6f 76 65 |argument|-map ove|
|00005110| 72 72 69 64 69 6e 67 2d | 74 65 72 6d 69 6e 61 6c |rriding-|terminal|
|00005120| 2d 6c 6f 63 61 6c 2d 6d | 61 70 5d 20 34 20 28 23 |-local-m|ap] 4 (#|
|00005130| 24 20 2e 20 32 30 32 37 | 31 29 20 22 5f 50 22 5d |$ . 2027|1) "_P"]|
|00005140| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 75 6e 69 |).(defal|ias 'uni|
|00005150| 76 65 72 73 61 6c 2d 61 | 72 67 75 6d 65 6e 74 2d |versal-a|rgument-|
|00005160| 6d 69 6e 75 73 20 23 5b | 28 61 72 67 29 20 22 08 |minus #[|(arg) ".|
|00005170| a8 ab 84 c1 08 21 87 c2 | 08 21 87 22 20 5b 61 72 |.....!..|.!." [ar|
|00005180| 67 20 75 6e 69 76 65 72 | 73 61 6c 2d 61 72 67 75 |g univer|sal-argu|
|00005190| 6d 65 6e 74 2d 6f 74 68 | 65 72 2d 6b 65 79 20 6e |ment-oth|er-key n|
|000051a0| 65 67 61 74 69 76 65 2d | 61 72 67 75 6d 65 6e 74 |egative-|argument|
|000051b0| 5d 20 32 20 6e 69 6c 20 | 22 5f 50 22 5d 29 0a 28 |] 2 nil |"_P"]).(|
|000051c0| 64 65 66 61 6c 69 61 73 | 20 27 75 6e 69 76 65 72 |defalias| 'univer|
|000051d0| 73 61 6c 2d 61 72 67 75 | 6d 65 6e 74 2d 6f 74 68 |sal-argu|ment-oth|
|000051e0| 65 72 2d 6b 65 79 20 23 | 5b 28 61 72 67 29 20 22 |er-key #|[(arg) "|
|000051f0| 08 11 c2 20 1b c4 0b c5 | 5c 22 1e 06 c4 0e 07 0e |... ....|\"......|
|00005200| 06 9b 0e 08 5c 22 16 08 | 2a c9 20 88 c5 89 16 5c |....\"..|*. ....\|
|00005210| 6e 87 22 20 5b 61 72 67 | 20 70 72 65 66 69 78 2d |n." [arg| prefix-|
|00005220| 61 72 67 20 74 68 69 73 | 2d 63 6f 6d 6d 61 6e 64 |arg this|-command|
|00005230| 2d 6b 65 79 73 20 6b 65 | 79 20 61 70 70 65 6e 64 |-keys ke|y append|
|00005240| 20 6e 69 6c 20 6b 65 79 | 6c 69 73 74 20 75 6e 69 | nil key|list uni|
|00005250| 76 65 72 73 61 6c 2d 61 | 72 67 75 6d 65 6e 74 2d |versal-a|rgument-|
|00005260| 6e 75 6d 2d 65 76 65 6e | 74 73 20 75 6e 72 65 61 |num-even|ts unrea|
|00005270| 64 2d 63 6f 6d 6d 61 6e | 64 2d 65 76 65 6e 74 73 |d-comman|d-events|
|00005280| 20 72 65 73 65 74 2d 74 | 68 69 73 2d 63 6f 6d 6d | reset-t|his-comm|
|00005290| 61 6e 64 2d 6c 65 6e 67 | 74 68 73 20 6f 76 65 72 |and-leng|ths over|
|000052a0| 72 69 64 69 6e 67 2d 74 | 65 72 6d 69 6e 61 6c 2d |riding-t|erminal-|
|000052b0| 6c 6f 63 61 6c 2d 6d 61 | 70 5d 20 33 20 6e 69 6c |local-ma|p] 3 nil|
|000052c0| 20 22 5f 50 22 5d 29 0a | 23 40 36 36 20 4d 6f 76 | "_P"]).|#@66 Mov|
|000052d0| 65 20 66 6f 72 77 61 72 | 64 20 41 52 47 20 6c 69 |e forwar|d ARG li|
|000052e0| 6e 65 73 20 61 6e 64 20 | 70 6f 73 69 74 69 6f 6e |nes and |position|
|000052f0| 20 61 74 20 66 69 72 73 | 74 20 6e 6f 6e 62 6c 61 | at firs|t nonbla|
|00005300| 6e 6b 20 63 68 61 72 61 | 63 74 65 72 2e 1f 0a 28 |nk chara|cter...(|
|00005310| 64 65 66 61 6c 69 61 73 | 20 27 66 6f 72 77 61 72 |defalias| 'forwar|
|00005320| 64 2d 74 6f 2d 69 6e 64 | 65 6e 74 61 74 69 6f 6e |d-to-ind|entation|
|00005330| 20 23 5b 28 61 72 67 29 | 20 22 08 79 88 c1 c2 77 | #[(arg)| ".y...w|
|00005340| 87 22 20 5b 61 72 67 20 | 22 20 09 22 20 6e 69 6c |." [arg |" ." nil|
|00005350| 5d 20 32 20 28 23 24 20 | 2e 20 32 31 31 39 37 29 |] 2 (#$ |. 21197)|
|00005360| 20 22 5f 70 22 5d 29 0a | 23 40 36 37 20 4d 6f 76 | "_p"]).|#@67 Mov|
|00005370| 65 20 62 61 63 6b 77 61 | 72 64 20 41 52 47 20 6c |e backwa|rd ARG l|
|00005380| 69 6e 65 73 20 61 6e 64 | 20 70 6f 73 69 74 69 6f |ines and| positio|
|00005390| 6e 20 61 74 20 66 69 72 | 73 74 20 6e 6f 6e 62 6c |n at fir|st nonbl|
|000053a0| 61 6e 6b 20 63 68 61 72 | 61 63 74 65 72 2e 1f 0a |ank char|acter...|
|000053b0| 28 64 65 66 61 6c 69 61 | 73 20 27 62 61 63 6b 77 |(defalia|s 'backw|
|000053c0| 61 72 64 2d 74 6f 2d 69 | 6e 64 65 6e 74 61 74 69 |ard-to-i|ndentati|
|000053d0| 6f 6e 20 23 5b 28 61 72 | 67 29 20 22 08 5b 79 88 |on #[(ar|g) ".[y.|
|000053e0| c1 c2 77 87 22 20 5b 61 | 72 67 20 22 20 09 22 20 |..w." [a|rg " ." |
|000053f0| 6e 69 6c 5d 20 32 20 28 | 23 24 20 2e 20 32 31 33 |nil] 2 (|#$ . 213|
|00005400| 35 37 29 20 22 5f 70 22 | 5d 29 0a 28 63 75 73 74 |57) "_p"|]).(cust|
|00005410| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00005420| 62 6c 65 20 27 6b 69 6c | 6c 2d 77 68 6f 6c 65 2d |ble 'kil|l-whole-|
|00005430| 6c 69 6e 65 20 27 6e 69 | 6c 20 22 2a 49 66 20 6e |line 'ni|l "*If n|
|00005440| 6f 6e 2d 6e 69 6c 2c 20 | 60 6b 69 6c 6c 2d 6c 69 |on-nil, |`kill-li|
|00005450| 6e 65 27 20 77 69 74 68 | 20 6e 6f 20 61 72 67 20 |ne' with| no arg |
|00005460| 61 74 20 62 65 67 20 6f | 66 20 6c 69 6e 65 20 6b |at beg o|f line k|
|00005470| 69 6c 6c 73 20 74 68 65 | 20 77 68 6f 6c 65 20 6c |ills the| whole l|
|00005480| 69 6e 65 2e 22 20 3a 74 | 79 70 65 20 27 62 6f 6f |ine." :t|ype 'boo|
|00005490| 6c 65 61 6e 20 3a 67 72 | 6f 75 70 20 27 6b 69 6c |lean :gr|oup 'kil|
|000054a0| 6c 69 6e 67 29 0a 23 40 | 33 36 36 20 4b 69 6c 6c |ling).#@|366 Kill|
|000054b0| 20 74 68 65 20 72 65 73 | 74 20 6f 66 20 74 68 65 | the res|t of the|
|000054c0| 20 63 75 72 72 65 6e 74 | 20 6c 69 6e 65 3b 20 69 | current| line; i|
|000054d0| 66 20 6e 6f 20 6e 6f 6e | 62 6c 61 6e 6b 73 20 74 |f no non|blanks t|
|000054e0| 68 65 72 65 2c 20 6b 69 | 6c 6c 20 74 68 72 75 20 |here, ki|ll thru |
|000054f0| 6e 65 77 6c 69 6e 65 2e | 0a 57 69 74 68 20 70 72 |newline.|.With pr|
|00005500| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 2c 20 6b |efix arg|ument, k|
|00005510| 69 6c 6c 20 74 68 61 74 | 20 6d 61 6e 79 20 6c 69 |ill that| many li|
|00005520| 6e 65 73 20 66 72 6f 6d | 20 70 6f 69 6e 74 2e 0a |nes from| point..|
|00005530| 4e 65 67 61 74 69 76 65 | 20 61 72 67 75 6d 65 6e |Negative| argumen|
|00005540| 74 73 20 6b 69 6c 6c 20 | 6c 69 6e 65 73 20 62 61 |ts kill |lines ba|
|00005550| 63 6b 77 61 72 64 2e 0a | 0a 57 68 65 6e 20 63 61 |ckward..|.When ca|
|00005560| 6c 6c 69 6e 67 20 66 72 | 6f 6d 20 61 20 70 72 6f |lling fr|om a pro|
|00005570| 67 72 61 6d 2c 20 6e 69 | 6c 20 6d 65 61 6e 73 20 |gram, ni|l means |
|00005580| 22 6e 6f 20 61 72 67 22 | 2c 0a 61 20 6e 75 6d 62 |"no arg"|,.a numb|
|00005590| 65 72 20 63 6f 75 6e 74 | 73 20 61 73 20 61 20 70 |er count|s as a p|
|000055a0| 72 65 66 69 78 20 61 72 | 67 2e 0a 0a 49 66 20 60 |refix ar|g...If `|
|000055b0| 6b 69 6c 6c 2d 77 68 6f | 6c 65 2d 6c 69 6e 65 27 |kill-who|le-line'|
|000055c0| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2c 20 74 68 65 | is non-|nil, the|
|000055d0| 6e 20 6b 69 6c 6c 20 74 | 68 65 20 77 68 6f 6c 65 |n kill t|he whole|
|000055e0| 20 6c 69 6e 65 0a 77 68 | 65 6e 20 67 69 76 65 6e | line.wh|en given|
|000055f0| 20 6e 6f 20 61 72 67 75 | 6d 65 6e 74 20 61 74 20 | no argu|ment at |
|00005600| 74 68 65 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 |the begi|nning of|
|00005610| 20 61 20 6c 69 6e 65 2e | 1f 0a 28 64 65 66 61 6c | a line.|..(defal|
|00005620| 69 61 73 20 27 6b 69 6c | 6c 2d 6c 69 6e 65 20 23 |ias 'kil|l-line #|
|00005630| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 61 72 67 29 |[(&optio|nal arg)|
|00005640| 20 22 c0 60 8a 09 ab 87 | c2 09 21 79 88 aa 9c 6d | ".`....|..!y...m|
|00005650| ab 85 c3 c4 c5 5c 22 88 | c6 c7 21 ac 87 0e 08 ab |.....\".|..!.....|
|00005660| 88 6e ab 85 c9 79 88 aa | 83 c5 7f 88 60 29 5c 22 |.n...y..|....`)\"|
|00005670| 87 22 20 5b 6b 69 6c 6c | 2d 72 65 67 69 6f 6e 20 |." [kill|-region |
|00005680| 61 72 67 20 70 72 65 66 | 69 78 2d 6e 75 6d 65 72 |arg pref|ix-numer|
|00005690| 69 63 2d 76 61 6c 75 65 | 20 73 69 67 6e 61 6c 20 |ic-value| signal |
|000056a0| 65 6e 64 2d 6f 66 2d 62 | 75 66 66 65 72 20 6e 69 |end-of-b|uffer ni|
|000056b0| 6c 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 5b 20 |l lookin|g-at "[ |
|000056c0| 09 5d 2a 24 22 20 6b 69 | 6c 6c 2d 77 68 6f 6c 65 |.]*$" ki|ll-whole|
|000056d0| 2d 6c 69 6e 65 20 31 5d | 20 35 20 28 23 24 20 2e |-line 1]| 5 (#$ .|
|000056e0| 20 32 31 36 37 36 29 20 | 22 2a 50 22 5d 29 0a 23 | 21676) |"*P"]).#|
|000056f0| 40 34 31 20 4b 69 6c 6c | 20 62 61 63 6b 20 74 6f |@41 Kill| back to|
|00005700| 20 74 68 65 20 62 65 67 | 69 6e 6e 69 6e 67 20 6f | the beg|inning o|
|00005710| 66 20 74 68 65 20 6c 69 | 6e 65 2e 1f 0a 28 64 65 |f the li|ne...(de|
|00005720| 66 61 6c 69 61 73 20 27 | 62 61 63 6b 77 61 72 64 |falias '|backward|
|00005730| 2d 6b 69 6c 6c 2d 6c 69 | 6e 65 20 23 5b 6e 69 6c |-kill-li|ne #[nil|
|00005740| 20 22 60 18 c1 79 88 c2 | 60 08 5c 22 29 87 22 20 | "`..y..|`.\")." |
|00005750| 5b 70 6f 69 6e 74 20 30 | 20 6b 69 6c 6c 2d 72 65 |[point 0| kill-re|
|00005760| 67 69 6f 6e 5d 20 33 20 | 28 23 24 20 2e 20 32 32 |gion] 3 |(#$ . 22|
|00005770| 32 36 30 29 20 6e 69 6c | 5d 29 0a 28 63 75 73 74 |260) nil|]).(cust|
|00005780| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00005790| 62 6c 65 20 27 6b 69 6c | 6c 2d 68 6f 6f 6b 73 20 |ble 'kil|l-hooks |
|000057a0| 27 6e 69 6c 20 22 2a 46 | 75 6e 63 74 69 6f 6e 73 |'nil "*F|unctions|
|000057b0| 20 72 75 6e 20 77 68 65 | 6e 20 73 6f 6d 65 74 68 | run whe|n someth|
|000057c0| 69 6e 67 20 69 73 20 61 | 64 64 65 64 20 74 6f 20 |ing is a|dded to |
|000057d0| 74 68 65 20 58 45 6d 61 | 63 73 20 6b 69 6c 6c 20 |the XEma|cs kill |
|000057e0| 72 69 6e 67 2e 5c 6e 54 | 68 65 73 65 20 66 75 6e |ring.\nT|hese fun|
|000057f0| 63 74 69 6f 6e 73 20 61 | 72 65 20 63 61 6c 6c 65 |ctions a|re calle|
|00005800| 64 20 77 69 74 68 20 6f | 6e 65 20 61 72 67 75 6d |d with o|ne argum|
|00005810| 65 6e 74 2c 20 74 68 65 | 20 73 74 72 69 6e 67 20 |ent, the| string |
|00005820| 6d 6f 73 74 20 72 65 63 | 65 6e 74 6c 79 5c 6e 63 |most rec|ently\nc|
|00005830| 75 74 20 6f 72 20 63 6f | 70 69 65 64 2e 20 20 59 |ut or co|pied.  Y|
|00005840| 6f 75 20 63 61 6e 20 75 | 73 65 20 74 68 69 73 20 |ou can u|se this |
|00005850| 74 6f 2c 20 66 6f 72 20 | 65 78 61 6d 70 6c 65 2c |to, for |example,|
|00005860| 20 6d 61 6b 65 20 74 68 | 65 20 6d 6f 73 74 20 72 | make th|e most r|
|00005870| 65 63 65 6e 74 20 5c 6e | 6b 69 6c 6c 20 62 65 63 |ecent \n|kill bec|
|00005880| 6f 6d 65 20 74 68 65 20 | 58 20 43 6c 69 70 62 6f |ome the |X Clipbo|
|00005890| 61 72 64 20 73 65 6c 65 | 63 74 69 6f 6e 2e 22 20 |ard sele|ction." |
|000058a0| 3a 74 79 70 65 20 27 68 | 6f 6f 6b 20 3a 67 72 6f |:type 'h|ook :gro|
|000058b0| 75 70 20 27 6b 69 6c 6c | 69 6e 67 29 0a 23 40 35 |up 'kill|ing).#@5|
|000058c0| 35 38 20 46 75 6e 63 74 | 69 6f 6e 20 74 6f 20 63 |58 Funct|ion to c|
|000058d0| 61 6c 6c 20 74 6f 20 6d | 61 6b 65 20 61 20 6b 69 |all to m|ake a ki|
|000058e0| 6c 6c 65 64 20 72 65 67 | 69 6f 6e 20 61 76 61 69 |lled reg|ion avai|
|000058f0| 6c 61 62 6c 65 20 74 6f | 20 6f 74 68 65 72 20 70 |lable to| other p|
|00005900| 72 6f 67 72 61 6d 73 2e | 0a 0a 4d 6f 73 74 20 77 |rograms.|..Most w|
|00005910| 69 6e 64 6f 77 20 73 79 | 73 74 65 6d 73 20 70 72 |indow sy|stems pr|
|00005920| 6f 76 69 64 65 20 73 6f | 6d 65 20 73 6f 72 74 20 |ovide so|me sort |
|00005930| 6f 66 20 66 61 63 69 6c | 69 74 79 20 66 6f 72 20 |of facil|ity for |
|00005940| 63 75 74 74 69 6e 67 20 | 61 6e 64 0a 70 61 73 74 |cutting |and.past|
|00005950| 69 6e 67 20 74 65 78 74 | 20 62 65 74 77 65 65 6e |ing text| between|
|00005960| 20 74 68 65 20 77 69 6e | 64 6f 77 73 20 6f 66 20 | the win|dows of |
|00005970| 64 69 66 66 65 72 65 6e | 74 20 70 72 6f 67 72 61 |differen|t progra|
|00005980| 6d 73 2e 0a 54 68 69 73 | 20 76 61 72 69 61 62 6c |ms..This| variabl|
|00005990| 65 20 68 6f 6c 64 73 20 | 61 20 66 75 6e 63 74 69 |e holds |a functi|
|000059a0| 6f 6e 20 74 68 61 74 20 | 45 6d 61 63 73 20 63 61 |on that |Emacs ca|
|000059b0| 6c 6c 73 20 77 68 65 6e | 65 76 65 72 20 74 65 78 |lls when|ever tex|
|000059c0| 74 0a 69 73 20 70 75 74 | 20 69 6e 20 74 68 65 20 |t.is put| in the |
|000059d0| 6b 69 6c 6c 20 72 69 6e | 67 2c 20 74 6f 20 6d 61 |kill rin|g, to ma|
|000059e0| 6b 65 20 74 68 65 20 6e | 65 77 20 6b 69 6c 6c 20 |ke the n|ew kill |
|000059f0| 61 76 61 69 6c 61 62 6c | 65 20 74 6f 20 6f 74 68 |availabl|e to oth|
|00005a00| 65 72 0a 70 72 6f 67 72 | 61 6d 73 2e 0a 0a 54 68 |er.progr|ams...Th|
|00005a10| 65 20 66 75 6e 63 74 69 | 6f 6e 20 74 61 6b 65 73 |e functi|on takes|
|00005a20| 20 6f 6e 65 20 6f 72 20 | 74 77 6f 20 61 72 67 75 | one or |two argu|
|00005a30| 6d 65 6e 74 73 2e 0a 54 | 68 65 20 66 69 72 73 74 |ments..T|he first|
|00005a40| 20 61 72 67 75 6d 65 6e | 74 2c 20 54 45 58 54 2c | argumen|t, TEXT,|
|00005a50| 20 69 73 20 61 20 73 74 | 72 69 6e 67 20 63 6f 6e | is a st|ring con|
|00005a60| 74 61 69 6e 69 6e 67 0a | 74 68 65 20 74 65 78 74 |taining.|the text|
|00005a70| 20 77 68 69 63 68 20 73 | 68 6f 75 6c 64 20 62 65 | which s|hould be|
|00005a80| 20 6d 61 64 65 20 61 76 | 61 69 6c 61 62 6c 65 2e | made av|ailable.|
|00005a90| 0a 54 68 65 20 73 65 63 | 6f 6e 64 2c 20 50 55 53 |.The sec|ond, PUS|
|00005aa0| 48 2c 20 69 66 20 6e 6f | 6e 2d 6e 69 6c 20 6d 65 |H, if no|n-nil me|
|00005ab0| 61 6e 73 20 74 68 69 73 | 20 69 73 20 61 20 22 6e |ans this| is a "n|
|00005ac0| 65 77 22 20 6b 69 6c 6c | 3b 0a 6e 69 6c 20 6d 65 |ew" kill|;.nil me|
|00005ad0| 61 6e 73 20 61 70 70 65 | 6e 64 69 6e 67 20 74 6f |ans appe|nding to|
|00005ae0| 20 61 6e 20 22 6f 6c 64 | 22 20 6b 69 6c 6c 2e 1f | an "old|" kill..|
|00005af0| 0a 28 64 65 66 76 61 72 | 20 69 6e 74 65 72 70 72 |.(defvar| interpr|
|00005b00| 6f 67 72 61 6d 2d 63 75 | 74 2d 66 75 6e 63 74 69 |ogram-cu|t-functi|
|00005b10| 6f 6e 20 6e 69 6c 20 28 | 23 24 20 2e 20 32 32 37 |on nil (|#$ . 227|
|00005b20| 32 33 29 29 0a 23 40 39 | 36 39 20 46 75 6e 63 74 |23)).#@9|69 Funct|
|00005b30| 69 6f 6e 20 74 6f 20 63 | 61 6c 6c 20 74 6f 20 67 |ion to c|all to g|
|00005b40| 65 74 20 74 65 78 74 20 | 63 75 74 20 66 72 6f 6d |et text |cut from|
|00005b50| 20 6f 74 68 65 72 20 70 | 72 6f 67 72 61 6d 73 2e | other p|rograms.|
|00005b60| 0a 0a 4d 6f 73 74 20 77 | 69 6e 64 6f 77 20 73 79 |..Most w|indow sy|
|00005b70| 73 74 65 6d 73 20 70 72 | 6f 76 69 64 65 20 73 6f |stems pr|ovide so|
|00005b80| 6d 65 20 73 6f 72 74 20 | 6f 66 20 66 61 63 69 6c |me sort |of facil|
|00005b90| 69 74 79 20 66 6f 72 20 | 63 75 74 74 69 6e 67 20 |ity for |cutting |
|00005ba0| 61 6e 64 0a 70 61 73 74 | 69 6e 67 20 74 65 78 74 |and.past|ing text|
|00005bb0| 20 62 65 74 77 65 65 6e | 20 74 68 65 20 77 69 6e | between| the win|
|00005bc0| 64 6f 77 73 20 6f 66 20 | 64 69 66 66 65 72 65 6e |dows of |differen|
|00005bd0| 74 20 70 72 6f 67 72 61 | 6d 73 2e 0a 54 68 69 73 |t progra|ms..This|
|00005be0| 20 76 61 72 69 61 62 6c | 65 20 68 6f 6c 64 73 20 | variabl|e holds |
|00005bf0| 61 20 66 75 6e 63 74 69 | 6f 6e 20 74 68 61 74 20 |a functi|on that |
|00005c00| 45 6d 61 63 73 20 63 61 | 6c 6c 73 20 74 6f 20 6f |Emacs ca|lls to o|
|00005c10| 62 74 61 69 6e 0a 74 65 | 78 74 20 74 68 61 74 20 |btain.te|xt that |
|00005c20| 6f 74 68 65 72 20 70 72 | 6f 67 72 61 6d 73 20 68 |other pr|ograms h|
|00005c30| 61 76 65 20 70 72 6f 76 | 69 64 65 64 20 66 6f 72 |ave prov|ided for|
|00005c40| 20 70 61 73 74 69 6e 67 | 2e 0a 0a 54 68 65 20 66 | pasting|...The f|
|00005c50| 75 6e 63 74 69 6f 6e 20 | 73 68 6f 75 6c 64 20 62 |unction |should b|
|00005c60| 65 20 63 61 6c 6c 65 64 | 20 77 69 74 68 20 6e 6f |e called| with no|
|00005c70| 20 61 72 67 75 6d 65 6e | 74 73 2e 20 20 49 66 20 | argumen|ts.  If |
|00005c80| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 0a 72 65 74 |the func|tion.ret|
|00005c90| 75 72 6e 73 20 6e 69 6c | 2c 20 74 68 65 6e 20 6e |urns nil|, then n|
|00005ca0| 6f 20 6f 74 68 65 72 20 | 70 72 6f 67 72 61 6d 20 |o other |program |
|00005cb0| 68 61 73 20 70 72 6f 76 | 69 64 65 64 20 73 75 63 |has prov|ided suc|
|00005cc0| 68 20 74 65 78 74 2c 20 | 61 6e 64 20 74 68 65 20 |h text, |and the |
|00005cd0| 74 6f 70 0a 6f 66 20 74 | 68 65 20 45 6d 61 63 73 |top.of t|he Emacs|
|00005ce0| 20 6b 69 6c 6c 20 72 69 | 6e 67 20 73 68 6f 75 6c | kill ri|ng shoul|
|00005cf0| 64 20 62 65 20 75 73 65 | 64 2e 20 20 49 66 20 74 |d be use|d.  If t|
|00005d00| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 72 65 74 75 |he funct|ion retu|
|00005d10| 72 6e 73 20 61 0a 73 74 | 72 69 6e 67 2c 20 74 68 |rns a.st|ring, th|
|00005d20| 61 74 20 73 74 72 69 6e | 67 20 73 68 6f 75 6c 64 |at strin|g should|
|00005d30| 20 62 65 20 70 75 74 20 | 69 6e 20 74 68 65 20 6b | be put |in the k|
|00005d40| 69 6c 6c 20 72 69 6e 67 | 20 61 73 20 74 68 65 20 |ill ring| as the |
|00005d50| 6c 61 74 65 73 74 20 6b | 69 6c 6c 2e 0a 0a 4e 6f |latest k|ill...No|
|00005d60| 74 65 20 74 68 61 74 20 | 74 68 65 20 66 75 6e 63 |te that |the func|
|00005d70| 74 69 6f 6e 20 73 68 6f | 75 6c 64 20 72 65 74 75 |tion sho|uld retu|
|00005d80| 72 6e 20 61 20 73 74 72 | 69 6e 67 20 6f 6e 6c 79 |rn a str|ing only|
|00005d90| 20 69 66 20 61 20 70 72 | 6f 67 72 61 6d 20 6f 74 | if a pr|ogram ot|
|00005da0| 68 65 72 0a 74 68 61 6e | 20 45 6d 61 63 73 20 68 |her.than| Emacs h|
|00005db0| 61 73 20 70 72 6f 76 69 | 64 65 64 20 61 20 73 74 |as provi|ded a st|
|00005dc0| 72 69 6e 67 20 66 6f 72 | 20 70 61 73 74 69 6e 67 |ring for| pasting|
|00005dd0| 3b 20 69 66 20 45 6d 61 | 63 73 20 70 72 6f 76 69 |; if Ema|cs provi|
|00005de0| 64 65 64 20 74 68 65 0a | 6d 6f 73 74 20 72 65 63 |ded the.|most rec|
|00005df0| 65 6e 74 20 73 74 72 69 | 6e 67 2c 20 74 68 65 20 |ent stri|ng, the |
|00005e00| 66 75 6e 63 74 69 6f 6e | 20 73 68 6f 75 6c 64 20 |function| should |
|00005e10| 72 65 74 75 72 6e 20 6e | 69 6c 2e 20 20 49 66 20 |return n|il.  If |
|00005e20| 69 74 20 69 73 0a 64 69 | 66 66 69 63 75 6c 74 20 |it is.di|fficult |
|00005e30| 74 6f 20 74 65 6c 6c 20 | 77 68 65 74 68 65 72 20 |to tell |whether |
|00005e40| 45 6d 61 63 73 20 6f 72 | 20 73 6f 6d 65 20 6f 74 |Emacs or| some ot|
|00005e50| 68 65 72 20 70 72 6f 67 | 72 61 6d 20 70 72 6f 76 |her prog|ram prov|
|00005e60| 69 64 65 64 20 74 68 65 | 0a 63 75 72 72 65 6e 74 |ided the|.current|
|00005e70| 20 73 74 72 69 6e 67 2c | 20 69 74 20 69 73 20 70 | string,| it is p|
|00005e80| 72 6f 62 61 62 6c 79 20 | 67 6f 6f 64 20 65 6e 6f |robably |good eno|
|00005e90| 75 67 68 20 74 6f 20 72 | 65 74 75 72 6e 20 6e 69 |ugh to r|eturn ni|
|00005ea0| 6c 20 69 66 20 74 68 65 | 20 73 74 72 69 6e 67 0a |l if the| string.|
|00005eb0| 69 73 20 65 71 75 61 6c | 20 28 61 63 63 6f 72 64 |is equal| (accord|
|00005ec0| 69 6e 67 20 74 6f 20 60 | 73 74 72 69 6e 67 3d 27 |ing to `|string='|
|00005ed0| 29 20 74 6f 20 74 68 65 | 20 6c 61 73 74 20 74 65 |) to the| last te|
|00005ee0| 78 74 20 45 6d 61 63 73 | 20 70 72 6f 76 69 64 65 |xt Emacs| provide|
|00005ef0| 64 2e 1f 0a 28 64 65 66 | 76 61 72 20 69 6e 74 65 |d...(def|var inte|
|00005f00| 72 70 72 6f 67 72 61 6d | 2d 70 61 73 74 65 2d 66 |rprogram|-paste-f|
|00005f10| 75 6e 63 74 69 6f 6e 20 | 6e 69 6c 20 28 23 24 20 |unction |nil (#$ |
|00005f20| 2e 20 32 33 33 33 39 29 | 29 0a 23 40 34 33 30 20 |. 23339)|).#@430 |
|00005f30| 4c 69 73 74 20 6f 66 20 | 6b 69 6c 6c 65 64 20 74 |List of |killed t|
|00005f40| 65 78 74 20 73 65 71 75 | 65 6e 63 65 73 2e 0a 53 |ext sequ|ences..S|
|00005f50| 69 6e 63 65 20 74 68 65 | 20 6b 69 6c 6c 20 72 69 |ince the| kill ri|
|00005f60| 6e 67 20 69 73 20 73 75 | 70 70 6f 73 65 64 20 74 |ng is su|pposed t|
|00005f70| 6f 20 69 6e 74 65 72 61 | 63 74 20 6e 69 63 65 6c |o intera|ct nicel|
|00005f80| 79 20 77 69 74 68 20 63 | 75 74 2d 61 6e 64 2d 70 |y with c|ut-and-p|
|00005f90| 61 73 74 65 0a 66 61 63 | 69 6c 69 74 69 65 73 20 |aste.fac|ilities |
|00005fa0| 6f 66 66 65 72 65 64 20 | 62 79 20 77 69 6e 64 6f |offered |by windo|
|00005fb0| 77 20 73 79 73 74 65 6d | 73 2c 20 75 73 65 20 6f |w system|s, use o|
|00005fc0| 66 20 74 68 69 73 20 76 | 61 72 69 61 62 6c 65 20 |f this v|ariable |
|00005fd0| 73 68 6f 75 6c 64 0a 69 | 6e 74 65 72 61 63 74 20 |should.i|nteract |
|00005fe0| 6e 69 63 65 6c 79 20 77 | 69 74 68 20 60 69 6e 74 |nicely w|ith `int|
|00005ff0| 65 72 70 72 6f 67 72 61 | 6d 2d 63 75 74 2d 66 75 |erprogra|m-cut-fu|
|00006000| 6e 63 74 69 6f 6e 27 20 | 61 6e 64 0a 60 69 6e 74 |nction' |and.`int|
|00006010| 65 72 70 72 6f 67 72 61 | 6d 2d 70 61 73 74 65 2d |erprogra|m-paste-|
|00006020| 66 75 6e 63 74 69 6f 6e | 27 2e 20 20 54 68 65 20 |function|'.  The |
|00006030| 66 75 6e 63 74 69 6f 6e | 73 20 60 6b 69 6c 6c 2d |function|s `kill-|
|00006040| 6e 65 77 27 2c 0a 60 6b | 69 6c 6c 2d 61 70 70 65 |new',.`k|ill-appe|
|00006050| 6e 64 27 2c 20 61 6e 64 | 20 60 63 75 72 72 65 6e |nd', and| `curren|
|00006060| 74 2d 6b 69 6c 6c 27 20 | 61 72 65 20 73 75 70 70 |t-kill' |are supp|
|00006070| 6f 73 65 64 20 74 6f 20 | 69 6d 70 6c 65 6d 65 6e |osed to |implemen|
|00006080| 74 20 74 68 69 73 0a 69 | 6e 74 65 72 61 63 74 69 |t this.i|nteracti|
|00006090| 6f 6e 3b 20 79 6f 75 20 | 6d 61 79 20 77 61 6e 74 |on; you |may want|
|000060a0| 20 74 6f 20 75 73 65 20 | 74 68 65 6d 20 69 6e 73 | to use |them ins|
|000060b0| 74 65 61 64 20 6f 66 20 | 6d 61 6e 69 70 75 6c 61 |tead of |manipula|
|000060c0| 74 69 6e 67 20 74 68 65 | 20 6b 69 6c 6c 0a 72 69 |ting the| kill.ri|
|000060d0| 6e 67 20 64 69 72 65 63 | 74 6c 79 2e 1f 0a 28 64 |ng direc|tly...(d|
|000060e0| 65 66 76 61 72 20 6b 69 | 6c 6c 2d 72 69 6e 67 20 |efvar ki|ll-ring |
|000060f0| 6e 69 6c 20 28 23 24 20 | 2e 20 32 34 33 36 38 29 |nil (#$ |. 24368)|
|00006100| 29 0a 28 63 75 73 74 6f | 6d 2d 64 65 63 6c 61 72 |).(custo|m-declar|
|00006110| 65 2d 76 61 72 69 61 62 | 6c 65 20 27 6b 69 6c 6c |e-variab|le 'kill|
|00006120| 2d 72 69 6e 67 2d 6d 61 | 78 20 27 33 30 20 22 2a |-ring-ma|x '30 "*|
|00006130| 4d 61 78 69 6d 75 6d 20 | 6c 65 6e 67 74 68 20 6f |Maximum |length o|
|00006140| 66 20 6b 69 6c 6c 20 72 | 69 6e 67 20 62 65 66 6f |f kill r|ing befo|
|00006150| 72 65 20 6f 6c 64 65 73 | 74 20 65 6c 65 6d 65 6e |re oldes|t elemen|
|00006160| 74 73 20 61 72 65 20 74 | 68 72 6f 77 6e 20 61 77 |ts are t|hrown aw|
|00006170| 61 79 2e 22 20 3a 74 79 | 70 65 20 27 69 6e 74 65 |ay." :ty|pe 'inte|
|00006180| 67 65 72 20 3a 67 72 6f | 75 70 20 27 6b 69 6c 6c |ger :gro|up 'kill|
|00006190| 69 6e 67 29 0a 23 40 36 | 33 20 54 68 65 20 74 61 |ing).#@6|3 The ta|
|000061a0| 69 6c 20 6f 66 20 74 68 | 65 20 6b 69 6c 6c 20 72 |il of th|e kill r|
|000061b0| 69 6e 67 20 77 68 6f 73 | 65 20 63 61 72 20 69 73 |ing whos|e car is|
|000061c0| 20 74 68 65 20 6c 61 73 | 74 20 74 68 69 6e 67 20 | the las|t thing |
|000061d0| 79 61 6e 6b 65 64 2e 1f | 0a 28 64 65 66 76 61 72 |yanked..|.(defvar|
|000061e0| 20 6b 69 6c 6c 2d 72 69 | 6e 67 2d 79 61 6e 6b 2d | kill-ri|ng-yank-|
|000061f0| 70 6f 69 6e 74 65 72 20 | 6e 69 6c 20 28 23 24 20 |pointer |nil (#$ |
|00006200| 2e 20 32 34 39 38 36 29 | 29 0a 23 40 32 34 39 20 |. 24986)|).#@249 |
|00006210| 4d 61 6b 65 20 53 54 52 | 49 4e 47 20 74 68 65 20 |Make STR|ING the |
|00006220| 6c 61 74 65 73 74 20 6b | 69 6c 6c 20 69 6e 20 74 |latest k|ill in t|
|00006230| 68 65 20 6b 69 6c 6c 20 | 72 69 6e 67 2e 0a 53 65 |he kill |ring..Se|
|00006240| 74 20 74 68 65 20 6b 69 | 6c 6c 2d 72 69 6e 67 2d |t the ki|ll-ring-|
|00006250| 79 61 6e 6b 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |yank poi|nter to |
|00006260| 70 6f 69 6e 74 20 74 6f | 20 69 74 2e 0a 52 75 6e |point to| it..Run|
|00006270| 20 60 6b 69 6c 6c 2d 68 | 6f 6f 6b 73 27 2e 0a 4f | `kill-h|ooks'..O|
|00006280| 70 74 69 6f 6e 61 6c 20 | 73 65 63 6f 6e 64 20 61 |ptional |second a|
|00006290| 72 67 75 6d 65 6e 74 20 | 52 45 50 4c 41 43 45 20 |rgument |REPLACE |
|000062a0| 6e 6f 6e 2d 6e 69 6c 20 | 6d 65 61 6e 73 20 74 68 |non-nil |means th|
|000062b0| 61 74 20 53 54 52 49 4e | 47 20 77 69 6c 6c 20 72 |at STRIN|G will r|
|000062c0| 65 70 6c 61 63 65 0a 74 | 68 65 20 66 72 6f 6e 74 |eplace.t|he front|
|000062d0| 20 6f 66 20 74 68 65 20 | 6b 69 6c 6c 20 72 69 6e | of the |kill rin|
|000062e0| 67 2c 20 72 61 74 68 65 | 72 20 74 68 61 6e 20 62 |g, rathe|r than b|
|000062f0| 65 69 6e 67 20 61 64 64 | 65 64 20 74 6f 20 74 68 |eing add|ed to th|
|00006300| 65 20 6c 69 73 74 2e 1f | 0a 28 64 65 66 61 6c 69 |e list..|.(defali|
|00006310| 61 73 20 27 6b 69 6c 6c | 2d 6e 65 77 20 23 5b 28 |as 'kill|-new #[(|
|00006320| 73 74 72 69 6e 67 20 26 | 6f 70 74 69 6f 6e 61 6c |string &|optional|
|00006330| 20 72 65 70 6c 61 63 65 | 29 20 22 08 ab 86 09 5c | replace|) "....\|
|00006340| 6e a0 88 aa 91 5c 6e 09 | 42 89 11 47 0b 56 ab 87 |n....\n.|B..G.V..|
|00006350| 0b 53 09 9b c4 a1 88 09 | 15 0e 06 ab 87 0e 06 5c |.S......|.......\|
|00006360| 6e 08 3f 5c 22 88 c7 c8 | 5c 6e 5c 22 87 22 20 5b |n.?\"...|\n\"." [|
|00006370| 72 65 70 6c 61 63 65 20 | 6b 69 6c 6c 2d 72 69 6e |replace |kill-rin|
|00006380| 67 20 73 74 72 69 6e 67 | 20 6b 69 6c 6c 2d 72 69 |g string| kill-ri|
|00006390| 6e 67 2d 6d 61 78 20 6e | 69 6c 20 6b 69 6c 6c 2d |ng-max n|il kill-|
|000063a0| 72 69 6e 67 2d 79 61 6e | 6b 2d 70 6f 69 6e 74 65 |ring-yan|k-pointe|
|000063b0| 72 20 69 6e 74 65 72 70 | 72 6f 67 72 61 6d 2d 63 |r interp|rogram-c|
|000063c0| 75 74 2d 66 75 6e 63 74 | 69 6f 6e 20 72 75 6e 2d |ut-funct|ion run-|
|000063d0| 68 6f 6f 6b 2d 77 69 74 | 68 2d 61 72 67 73 20 6b |hook-wit|h-args k|
|000063e0| 69 6c 6c 2d 68 6f 6f 6b | 73 5d 20 34 20 28 23 24 |ill-hook|s] 4 (#$|
|000063f0| 20 2e 20 32 35 31 30 34 | 29 5d 29 0a 23 40 31 33 | . 25104|)]).#@13|
+--------+-------------------------+-------------------------+--------+--------+